jarjin的博客

李骏（2005-9-7）

如果使用VC++使用事务来写SQLite3数据库，首先要先能写库，这篇文章分为两部分，第一部分是怎么来写SQLite3数据库，第二部分怎么使用事务来写库。

第一部分写SQLite3数据库

SQLite官方下载只给了我们一个SQLite3.Dll跟一个SQLite3.def文件，并没有提供用于VC++6使用的Lib文件，因此大家可能要麻烦一点，有两种选择，一种使用Dll动态加载来使用里面的函数，但是这很麻烦，而且如果在程序执行的时候，理论上是有些慢的（因为它每次都要LoadLibrary跟GetProcAddress），如果把所有的函数在程序加载的时候，然后执行的时候就很快了，我推荐大家使用这种方式，但是没有LIB文件怎么办？那咱们就自己做呗～～ ^_^ （我会介绍大部分流行编程语言跟SQLite的接口方法）

<1> VC++ : 启动一个命令行，别说你不会，进入VC的安装目录，我的目录是D:\Microsoft Visual Studio\VC98\Bin   在这个目录下面有一个LIB.exe文件，对，使用它咱们就能制作出咱们需要的SQLite3.lib文件，将咱们在SQLite官方下载的SQLite3.def文件放到相同目录，或者绝对路径也可以，  然后在命令行输入如下命令。

D:\Microsoft Visual Studio\VC98\Bin>LIB /MACHINE:IX86 /DEF:sqlite.def

这样我们就得到了一个SQLite3.lib文件，赶快放到工程链接里面。Project－>Settings  在Link选项卡找到Object/library modules : 在最后填入SQLite3.lib 。如果原来就有链接，请使用空格分隔。

将sqlite3.h sqlite3.lib sqlite3.dll文件复制到我们的工程目录，在我们需要写库的CPP文件顶部，填入：＃include “sqlite3.h”   然后咱们就可以调用sqlite3.dll里面的所有函数了，比每次都要定义函数原型方便吧？^_^

//Open Sqlite3 database

void OpenSqlite()

{

       sqlite3 *sdb;

       char buffer[MAX_PATH];

       ::GetCurrentDirectory(MAX_PATH,buffer);

       strcat(buffer,"\\sqlite.db");

       if(SQLITE_OK!=sqlite3_open(buffer,&sdb))

       {

              ::MessageBox(NULL,sqlite3_errmsg(sdb),NULL,MB_OK | MB_ICONERROR);

              sqlite3_close(sdb);

              exit(1);

              return;

       }

       db=sdb;

}

//Execute SQL statement

void execSQL(char* sql)

{

       char* zErrMsg = 0;

       if(SQLITE_OK!=sqlite3_exec(db,sql,0,0,&zErrMsg))

       {

              ::MessageBox(NULL,sqlite3_errmsg(db),NULL,MB_OK | MB_ICONERROR);

              sqlite3_close(db);

              return;

       }

}

程序N简单，不多赘述。之后，我们每次调用这两个函数即可写库了。

<2> Borland C++ Builder 6使用Lib文件跟VC++6完全不同，大家千万别拿来乱用，咱们也可以使用它系统本身提供的一个命令行工具生成一个SQLite3.lib文件，具体的方法如下：

在BCB (Borland C++ Builder 6) 的安装目录找到implib.exe，复制出来或者在它本目录都无所谓，但是必须将SQLite3.dll复制到相同目录下，然后启动一个命令行，（我把他放到了D:/下面）

D:\>implib.exe sqlite3.dll sqlite3.lib

这样就生成了我们需要的专用于BCB的sqlite3.lib文件，怎么使用在这里省略，大家自己研究吧。^_^

<3> DELPHI 7 没有办法使用lib文件，这就有点麻烦，但是咱们也没有必要一个一个Query，那样太痛苦了。我当时就好痛苦。5555555～～～，咱们可以借助第三方的包装类，有一些是收费的，但是也有一些免费的，具体的信息大家请查看下面的地址 http://www.sqlite.org/cvstrac/wiki?p=SqliteWrappers

我这里使用的是sqlitesimpledelphi 这是一个完全免费的包装类，大家可以到它的官方网站下载，http://www.itwriting.com/sqlitesimple.php

下来以后是一个压缩包里面是一个demo。咱们需要里面的两个文件。SQLite3.pas 跟 SQLiteTable3.pas ，把他们复制到工程目录下面，然后在需要操作库的单元文件里面 uses SQLiteTable3 ,然后大家请查看官方的事例代码：

procedure TForm1.btnTestClick(Sender: TObject);

var

slDBpath: string;

sldb: TSQLiteDatabase;

sltb: TSQLIteTable;

sSQL: String;

Notes: String;

begin

slDBPath := ExtractFilepath(application.exename)

+ 'test.db';

sldb := TSQLiteDatabase.Create(slDBPath);

try

if sldb.TableExists('testTable') then begin

sSQL := 'DROP TABLE testtable';

sldb.execsql(sSQL);

end;

sSQL := 'CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,';

sSQL := sSQL + '[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);';

sldb.execsql(sSQL);

sldb.execsql('CREATE INDEX TestTableName ON [testtable]([Name]);');

//begin a transaction

sldb.BeginTransaction;

sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");';

//do the insert

sldb.ExecSQL(sSQL);

sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");';

//do the insert

sldb.ExecSQL(sSQL);

//end the transaction

sldb.Commit;

//query the data

sltb := slDb.GetTable('SELECT * FROM testtable');

try

if sltb.Count > 0 then

begin

//display first row

ebName.Text := sltb.FieldAsString(sltb.FieldIndex['Name']);

ebID.Text := inttostr(sltb.FieldAsInteger(sltb.FieldIndex['ID']));

ebNumber.Text := floattostr( sltb.FieldAsDouble(sltb.FieldIndex['Number']));

Notes :=  sltb.FieldAsBlobText(sltb.FieldIndex['Notes']);

memNotes.Text := notes;

end;

finally

sltb.Free;

end;

finally

sldb.Free;

end;

end;

这样操作起来是不是很简单，^_^

<4> PHP调用SQLite3 ，这个不用我多废话，请参看我写的《通过Apache + PHP5 + PDO 连接 SQLite3 数据库》一文。

<5>Visual Basic , 因为我没有仔细研究，我无发言权，请参看SQLite官方的资料

http://www.sqlite.org/cvstrac/wiki?p=SqliteWrappers

COM Wrappers / Visual Basic DLLs部分

<6>JAVA  请参看http://www.loveunix.net/bbs/index.php?showtopic=35051  帖子，讲述的比较详细。

第二部分 使用事务写库

       事务的具体理论概念我不想多说了，如果不明白的请大家到GOOGLE搜索关键字“数据库事务”，能找到N多文章资料。我们使用VC++来做事例。还有使用到上面的两个函数

void WriteSqlite()

{

       try

       {

              OpenSqlite();

              execSQL("begin transaction;");  \\开始一个事务，记录操作

              char strSQL[MAX_PATH];

              sprintf(strSQL,"INSERT INTO Table_Name (nAction1, nAction2, nAction3) VALUES(%d,%d,%d)",    szVar1,szVar2,       szVar3,);

              execSQL(strSQL);

              execSQL("commit transaction;");  \\执行提交之前数据库自动保存用户对数据库操作序列。

              return;

       }

       catch(...)

       {

              execSQL("rollback transaction;");

       }

       //Add custom code

}

本文至此而完，上述代码均在 Windows2000 Pro + VC++6 英文企业版本 ＋ Delphi7 英文企业版  编译通过

李骏(2005-6-23下午)

通过PHP跟PDO配置SQLite数据库是一件很繁琐的事情，经过一下午的研究，终于理清了里面的思路。现在拿出来跟大家共享。初学，错误请指出。

首先我们先选择要使用的web server 软件，由于从兼容性跟性能方面的需求，我选择了目前来说最新版的apache_2.0.54-win32-x86-no_ssl.msi 下载地址：http://apache.freelamp.com/httpd/binaries/win32/apache_2.0.54-win32-x86-no_ssl.msi 。

第二步，我们要使用目前最新版本的PHP 5.0.4 zip package .这里提示大家一下，经过我痛苦的反复的实验跟查看资料，如果大家想要使用PDO扩展连接到SQLite数据库的话，请你一定不要选择安装包，因为它不支持很多PHP的扩展库文件。

第三步，我们要去http://snaps.php.net/win32/PECL_5_0/ 下载PDO的两个扩展库文件，文件名各自为：php_pdo.dll 跟 php_pdo_sqlite.dll 。下来以后保存在一边，我们稍候会使用到。顺便提一下哦，关于PHP_PDO的驱动资料请大家查阅 http://cn2.php.net/PDO 里面有详细的不同平台的安装信息。

最后一步，大家需要到SQLite官方网站去下载SQLite的文件包。地址为：

http://www.sqlite.org/download.html  选择适合自己的版本即可。我用的是：sqlite_analyzer-3_2_1.zip 。

       好了，预备工作做好了，我们开始工作吧！首先，请大家按照上面介绍的顺序安装阿Apache 安装过程很简单,不赘述.一路的next直到完成。但是有一些小细节需要说一些，正是这些小细节让我吃了不少苦。需要注意的是大家如果原来的系统上安装了微软的IIS的话，可能会安装出现冲突，具体的是在端口绑定方面的问题。如果可以的话，请尽量将IIS卸载掉，如果大家有避免冲突的方法，可以拿出来讨论一下。

       下面开始将下载下来的PHP 5.0.4 zip package 解压缩出来，放到C:\PHP 文件夹下面，也可以放在自己想要的地方，最后在各个配置文件里面修改一下即可。我们把C:\PHP文件夹下面的php5ts.dll 文件放到C:\Windows\System32下面，如果是NT或者2000系统的话，就放在C:\Winnt\System32下面。然后将C:\PHP文件夹下面的php.ini-recommended文件复制到C:\Windows\下面并改名为php.ini 。把我们下载下来的两个PDO桥驱动文件（

php_pdo.dll 跟 php_pdo_sqlite.dll）放到C:\PHP\ext里面。这个文件夹是PHP专门存放扩展库的地方，大家仔细看就可以发现很多熟悉的面孔哦^_^。

      打开我们刚才存放在C:\Windows\下面php.ini文件，开始配置信息了。找寻下面的行。

;Windows Extensions

;Note that ODBC support is built in, so no dll is needed for it.

;

我们在两行后面可以发现众多的扩展库文件，对，这里就是php启动时加载扩展库的地方，我们要把我们需要加载的PDO扩展库放到这里面，让PHP当作模块加载，我们才能使用阿~~。

加载方法很简单，在所有的库文件后面添加上如下两句：

;手动添加的php的pdo的驱动扩展支持

extension=php_pdo.dll

extension=php_pdo_sqlite.dll

下面还有一个很重要的工作，就是我们要把扩展库的路径告诉php否则，PHP不知道去哪里找这些小宝贝了^_^ ,我们查找到如下的行：（查找关键字：extension_dir）：

; Directory in which the loadable extensions (modules) reside.

extension_dir = "c:\php\ext"

把它设置为动态库存方的路径，我们这里是：c:\php\ext

好了PHP的配置文件我们修改好了，保存关闭。

我们下面开始右击状态栏里面那个小羽毛的图标，选择“Open Apache Monitor”打开Apache监视窗口，我们选择右边一列按钮里面的“Stop”按钮，将服务暂时关掉。然后我们打开“开始-〉程序-〉Apache HTTP Server 2.0.54-〉Configure Apache Server-〉Edit the Apache httpd.conf Configuration File”菜单，打开Apache的配置文件httpd.conf。在这里面我们要把php当作Apache的一个模块加载进来。我们在配置文件的最后面加上如下两句。请注意路径问题哦：

LoadModule php5_module "c:/php/php5apache2.dll"

AddType application/x-httpd-php .php

这样当Apache启动的时候就把PHP加载进来了。再寻找下面的行

（查找关键字：DocumentRoot）：

#

DocumentRoot "D:\website"

设置我们站点的根目录。我选在D:\website下面。

我们还要寻找如下的行：（查找关键字：DirectoryIndex）

#

DirectoryIndex index.html index.html.var

这里我们可以设置自己的首页名称,在后面加上我们使用的文件名即可.中间使用空格分隔。

例如：

#

DirectoryIndex index.html index.html.var index.php default.php

至此，我们所有的配置完成了，请大家保存关闭。然后再次启动Apache监视窗口，选择右边的“Start”按钮，启动Apache服务器，

最后拉~~

如果要测试SQLite数据库的话，我们使用一些SQLite建表工具，建一个数据库跟一些表，然后输入一些数据字段，最后使用自己喜欢的编辑器，在里面输入如下代码：

<?php

// Connect to an ODBC database using driver invocation

$dsn = 'sqlite:c:\sql.db';

try {

    $dbh = new PDO($dsn, $user, $password);

    echo 'PDO Connection  Ok','<br>';

    $dbh->exec("CREATE TABLE PKU(id integer,name varchar(255))");

    echo 'Create Table ok','<br>';

    $dbh->exec("INSERT INTO PKU values(1,'jarjin')");

    echo 'Insert Data ok','<br>';

    $dbh->beginTransaction();

    $sth = $dbh->prepare('SELECT *FROM PKU');

    $sth->execute();

    $result = $sth->fetchAll();

    print_r($result);

    $dsn=null;

} catch (PDOException $e) {

   echo 'Connection failed: ' . $e->getMessage();

   $dsn=null;

}

?>

(注意：PHP5自身带的SQLite是2版本，不能执行3版本的连接跟操作，POD就是解决这个问题的桥梁，它使PHP5连接并且操作3版本的SQLite，因此，PHP5自身带的SQLite 函数库是无法操作SQLIte3的，必须使用PHP5手册里面PDO的函数来间接驱动SQLite3数据库)

保存到我们站点的根目录下面，比如叫做：default.php 如果不出其他问题的话，我们启动IE，在地址栏里输入http://localhost/ 回车后，看看出现了什么。^_^

Mail: jarjin@gmail.com

李骏  (2005-7-6)

由于工作需要，最近用到了ADSI对IIS的控制编程，在网上Search了N久，除了一些关于建立虚拟目录的文章外，没有稍微深入一些的。但是我的工作任务比这些要深入一些。因此，只有自力更生努力了。-_- 不过其中还是借助一些网络朋友的文章内容。特此声明。

完整代码如下：

//配置IIS系统

#if !defined _UNICODE

#define _UNICODE

int CSetupIIS::ConfigDirectory(LPCTSTR VirtualDirName, LPCTSTR Path, LPCTSTR ScriptMapsName)

{

       // TODO: Add extra validation here

       ::CoInitialize(NULL);         //初始化COM组件

       IADsContainer* iContainer;      

       IADs* iAds;

       if(S_OK==ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer))

       {

              //等到默认站点

              iContainer->GetObject(_bstr_t("IIsWebServer"), _bstr_t("1"),(IDispatch**)&iAds);

              if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK)

              {

                     //得到默认站点的根目录

                     iContainer->GetObject(_bstr_t("IIsWebVirtualDir"),_bstr_t("Root"),(IDispatch**)&iAds);

                     //获得访问虚拟目录

                     if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK)

                     {

                            //先删除了虚拟目录

                            iContainer->Delete(_bstr_t("IIsWebVirtualDir"), _bstr_t(VirtualDirName));

                            //建立虚拟目录

                            if(iContainer->Create(_bstr_t("IIsWebVirtualDir"), _bstr_t(VirtualDirName),(IDispatch**)&iAds)==S_OK)

                            {

                                   //设置虚拟目录的属性

                                   iAds->Put(_bstr_t("AccessRead"),_variant_t("True"));      //可读属性

                                   //                                 iAds->Put(_bstr_t("AccessWrite"),_variant_t("True"));      //可写属性，默认关闭

                                   iAds->Put(_bstr_t("EnableDefaultDoc"),_variant_t("True"));      

                                   iAds->Put(_bstr_t("AppAllowDebugging"),_variant_t("True"));     //应用程序允许调试

                                   iAds->Put(_bstr_t("AccessScript"),_variant_t("True"));    //执行许可属性

                                   iAds->Put(_bstr_t("AppFriendlyName"),_variant_t(VirtualDirName));  //应用程序名

                                   iAds->Put(_bstr_t("DefaultDoc"),_variant_t("index.htm"));

                                   iAds->Put(_bstr_t("AppIsolated"),_variant_t("2"));           

                                   iAds->Put(_bstr_t("Path"),_variant_t(Path));       //虚拟目录物理的根目录

                                   iAds->Put(_bstr_t("ScriptMaps"),_variant_t(ScriptMapsName));

                                   OLECHAR * arrFunName[]={L"AppCreate"};   //定义com的函数名称

                                   DISPID dispID;

                                   iContainer->GetIDsOfNames(IID_NULL,arrFunName,1,

                                          LOCALE_SYSTEM_DEFAULT,&dispID);      //取得DISPID值，由dispID返回

                                   VARIANTARG v[1];

                                   v[0].vt=VT_BOOL;       v[0].boolVal=TRUE;    //AppCreate的参数负值,

                                   DISPPARAMS params={v,NULL,1,0};                  //定义DISPPARAMS参数

                                   VARIANT vResult;

                                   iAds->Invoke(dispID,IID_NULL,LOCALE_SYSTEM_DEFAULT,  

                                          DISPATCH_METHOD,&params,&vResult,NULL,NULL);    //开始调用方法

                                   iAds->SetInfo();

                                   iAds->Release();        //释放iAds指针

                                   iAds->Release();

                                   iContainer->Release();   //释放iContainer对象指针

                                   iContainer->Release();

//                                 AfxMessageBox("IIS Setup ok");

                                   return TRUE;

                            }

                            else

                            {

                                   iAds->Release();

                                   iAds->Release();

                                   iContainer->Release();

                                   iContainer->Release();

                                   return FALSE;

                            }

                     }

                     else

                     {

                            iAds->Release();

                            iContainer->Release();

                     }

              }

              else

              {

                     iAds->Release();

              }

              iContainer->Release();

       }

       return FALSE;  

       ::CoUninitialize();       //结束COM调用

}

#endif

IIS配置，这一部分涉及到了Windows 活动目录的ADSI编程。据说这是唯一跟IIS交互的途径。先要建立虚拟目录，这使用到了IisWebVirtualDir对象，他有众多的属性以及方法。使用：if(iContainer->Create(_bstr_t("IIsWebVirtualDir"), _bstr_t(VirtualDirName),(IDispatch**)&iAds)==S_OK) 来建立虚拟目录。通过方法Put以下各个属性来设置我们的虚拟目录的功能。

iAds->Put(_bstr_t("AccessRead"),_variant_t("True")); //可读属性

//iAds->Put(_bstr_t("AccessWrite"),_variant_t("True"));     //可写属性，默认关闭

iAds->Put(_bstr_t("EnableDefaultDoc"),_variant_t("True"));     

iAds->Put(_bstr_t("AppAllowDebugging"),_variant_t("True"));  //应用程序允许调试

iAds->Put(_bstr_t("AccessScript"),_variant_t("True"));      //执行许可属性

iAds->Put(_bstr_t("AppFriendlyName"),_variant_t(VirtualDirName));      //应用程序名

iAds->Put(_bstr_t("DefaultDoc"),_variant_t("index.htm"));

iAds->Put(_bstr_t("AppIsolated"),_variant_t("2"));           

iAds->Put(_bstr_t("Path"),_variant_t(Path));     //虚拟目录物理的根目录

iAds->Put(_bstr_t("ScriptMaps"),_variant_t(ScriptMapsName));

并且通过Idispatch::Invoke()函数来间接调用AppCreate方法。使虚拟目录生效。需要注意的地方是：这里使用了UNICODE，并且在使用IisWebVirtualDir对象的时候在Project->Setting菜单的link标签下面添上activeds.lib adsiid.lib，还要#include "activeds.h" 。另外还有一个函数重起IIS ResetIIS()，先调用命令net stop w3svc 停止IIS服务，再调用net start w3svc 启动IIS服务，按理说这两步也许是多余的，但是以防万一嘛！^_^ 我把这几个函数封装到一个类里面了,方便调用.

初写文章，错误难免，请指正。

jarjin@gmail.com