소스 검색

* 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,
   mysql4conn,
   IBConnection,
+  sqlite3conn,
   sqldb;
 
 var connection  : tSQLConnection;
@@ -37,6 +38,7 @@ begin
   if dbtype = 'mysql' then connection := tMySQLConnection.Create(nil);
   if dbtype = 'postgresql' then connection := tpqConnection.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