2011年11月_波特王子

12月 11月 10月 09月 08月 07月 06月 04月 03月 02月

转载 Transactions in ODBC

Transactions in ODBC are managed at the connection level. When an application completes a transaction, it commits or rolls back all work completed through all statement handles on that connection. To

2011-11-22 16:36:04 721

转载 ODBC应用程序框架

ODBC应用程序的最终目的是通过ODBC API函数执行SQL语句，完成各种数据库操作。ODBC对数据库的访问通过句柄来实现，常用的三个基本的句柄是：环境句柄：建立应用程序与ODBC系统之间的联系，只有一个环境句柄。　连接句柄：把ODBC与数据源建立起联系，可以有多个连接句柄。　语句句柄：用来与SQL语句操作建立联系，以便执行SQL语句。ODBC应用程序中，任

2011-11-22 15:15:45 2720 2

转载 _beginthreadex与createthread和AfxBeginThread的区别

1、不要在一个MFC程序中使用_beginthreadex()或CreateThread()。这句话的意思是由于AfxBeginThread()是MFC封装的启动线程的函数，里面包含了很多和MFC相关的启动信息，而且封装了一些常用的操作，使用起来也比较简便。而用另外两个函数就需要程序员对类型，安全性检查进行更多的思考！ 2、用_beginthreadex()函数应该是最佳选择，因为_be

2011-11-21 11:02:41 2564 1

原创 set_ip_bat

::set ip:netsh interface ip set address name="本地连接" source=static addr=192.168.203.100 mask=255.255.255.0 gateway=192.168.203.1netsh interface ip set dns name="本地连接" source=static addr=162.107.182.1

2011-11-07 10:15:18 1131

原创将二维数组打印成table的模板函数

template bool PrintTableHtml(const Type (&arr)[Row][Col], const std::string &htmlfile, const std::string &tableInfo){ if(arr == NULL){ return false; } //cout << Row << endl << Col << endl;

2011-11-03 22:55:59 679

原创 send files to a ftp server in PERL

use Net::FTP;sub sendloc2Ftp($$$){my($FtpFullPathFile, $LocalPath, $Localfile) = @_;my $user;my $password;my $host;my $port;my $remotePath;#match patterns like: ftp://anonymous:a

2011-11-02 22:25:47 620

原创 CreatePath

#creates a pathsub CreatePath($){my $path = shift;my $DIRDELI = $PubVar::DIRDELI;my @arr_path = split(/$DIRDELI/, $path);my $createdPath=$PubVar::DIRDELI;for(my $iLevel = 0; $iLevel if(l

2011-11-02 22:19:48 1458

原创 Select a batch of files from a path pattern(only the last folder changes)

sub SelectFiles($$$$;$$){my ($srcPathPattern, $srcFile, $desPath, $desFile) = @_;my $srcPath = dirname($srcPathPattern);my $folderPattern = basename($srcPathPattern);#print "$srcPathPattern, $

2011-11-02 22:16:34 439

原创 Read Config.xml in Perl

use XML::DOM;my $parser = new XML::DOM::Parser;my $doc = $parser->parsefile("config.xml");for my $task ($doc->getElementsByTagName("Task")){my $taskName = $task ->getAttribute("n

2011-11-02 22:10:50 665