paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqlite: implement CreateDB/DropDB methods + InitializeSqlite/ReleaseSqlite

Browse Source 
git-svn-id: trunk@30885 -
This commit is contained in:
lacak 2015-05-19 11:29:52 +00:00
parent 126f94ba41
commit 5b3b1c7dea
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
View File

@ -980,7 +980,7 @@ function TSQLite3Connection.GetConnectionInfo(InfoType: TConnInfoType): string;
begin
Result:='';
try
InitializeSqlite(SQLiteDefaultLibrary);
InitializeSqlite;
case InfoType of
citServerType:
Result:=TSQLite3ConnectionDef.TypeName;
@ -1003,12 +1003,17 @@ procedure TSQLite3Connection.CreateDB;
var filename: ansistring;
begin
CheckDisConnected;
filename := DatabaseName;
try
checkerror(sqlite3_open(PAnsiChar(filename),@fhandle));
InitializeSqlite;
try
filename := DatabaseName;
checkerror(sqlite3_open(PAnsiChar(filename),@fhandle));
finally
sqlite3_close(fhandle);
fhandle := nil;
end;
finally
sqlite3_close(fhandle);
fhandle := nil;
ReleaseSqlite;
end;
end;