浏览代码

* Patch from Leonardo M. Ramé which adds sqlite3 to the example

git-svn-id: trunk@9261 -
joost 18 年之前
父节点
当前提交
606261a21d
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/fcl-db/src/sqldb/testsqldb.pp

+ 2 - 0
packages/fcl-db/src/sqldb/testsqldb.pp

@@ -24,6 +24,7 @@ uses
   pqconnection,
   pqconnection,
   mysql4conn,
   mysql4conn,
   IBConnection,
   IBConnection,
+  sqlite3conn,
   sqldb;
   sqldb;
 
 
 var connection  : tSQLConnection;
 var connection  : tSQLConnection;
@@ -37,6 +38,7 @@ begin
   if dbtype = 'mysql' then connection := tMySQLConnection.Create(nil);
   if dbtype = 'mysql' then connection := tMySQLConnection.Create(nil);
   if dbtype = 'postgresql' then connection := tpqConnection.Create(nil);
   if dbtype = 'postgresql' then connection := tpqConnection.Create(nil);
   if dbtype = 'interbase' then connection := tIBConnection.Create(nil);
   if dbtype = 'interbase' then connection := tIBConnection.Create(nil);
+  if dbtype = 'sqlite3' then connection := tSQLite3Connection.Create(nil);
 
 
   if not assigned(connection) then exit; // probably an invalid database type given
   if not assigned(connection) then exit; // probably an invalid database type given