Browse Source

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

git-svn-id: trunk@9261 -
joost 17 years ago
parent
commit
606261a21d
1 changed files with 2 additions and 0 deletions
  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