Difference between revisions of "SQLFree"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> function SQLFree(const DBIndex: Integer): Boolean; </source> ==Availability== SCAR Divi 3.31 > Current ==Description== Frees a...") |
|||
| Line 16: | Line 16: | ||
begin | begin | ||
| − | DB := SQLOpen( | + | DB := SQLOpen(WorkspacePath + 'test.db3', True); |
try | try | ||
// Create a table | // Create a table | ||
Revision as of 00:31, 10 February 2012
Definition
function SQLFree(const DBIndex: Integer): Boolean;
Availability
SCAR Divi 3.31 > Current
Description
Frees an open SQLite3 database connection specified by the index DBIndex. The function returns true if the index was found in the system and the database connection freed.
Example
var
DB, Query, InsertID: Integer;
begin
DB := SQLOpen(WorkspacePath + 'test.db3', True);
try
// Create a table
SQLQuery(DB, 'CREATE TABLE IF NOT EXISTS test(id INTEGER PRIMARY KEY, string TEXT)');
// Insert 2 rows into the table
Query := SQLQueryEx(DB, 'INSERT INTO test VALUES(NULL, ?)');
try
SQLBindStr(Query, 1, 'Hello Mars!');
SQLQueryStep(Query);
SQLQueryReset(Query);
SQLBindStr(Query, 1, 'Hello World!');
SQLQueryStep(Query);
InsertID := SQLLastID(DB);
finally
SQLQueryFree(Query);
end;
// Get the data stored in the last row
Query := SQLQueryEx(DB, 'SELECT * FROM test WHERE id = ?');
try
SQLBindInt(Query, 1, InsertID);
if SQLQueryStep(Query) = SQL_ROW then
WriteLn(SQLColumnStr(Query, 1));
finally
SQLQueryFree(Query);
end;
finally
SQLFree(DB);
end;
end.Output:
Hello World!
