1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
program testapiv3x;
{$APPTYPE CONSOLE}
{$MODE DELPHI}
uses sqlite3, sysutils;
const
DBFILE='dbtest.db';
var
rc : Integer;
db : Psqlite3;
sql : string;
pzErrMsg : PChar;
function MyCallback(_para1:pointer; plArgc:longint; argv:PPchar; argcol:PPchar):longint; cdecl;
var i: Integer;
PVal, PName: ^PChar;
begin
PVal:=argv;
PName:=argcol;
for i:=0 to plArgc-1 do begin
writeln(Format('%s = ''%s'''#13, [PName^, PVal^]));
inc(PVal);
inc(PName);
end;
writeln(#13);
Result:=0;
end;
begin
writeln(Format('SQLite version : %d',[sqlite3_libversion_number]));
rc := sqlite3_open(PChar(DBFILE), @db);
try
if rc<>SQLITE_OK then begin
writeln(Format('Can''t open database: %s',[DBFILE]));
end;
sql:= 'DROP TABLE Test;';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
sql:='CREATE TABLE Test(No integer, name varchar(32),shortname varchar(32), age integer);';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
sql:='INSERT INTO Test VALUES(1,''hi'', ''by'', -1);';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
Writeln('Inserting row');
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
SQL := 'INSERT INTO Test VALUES(2,''dualcore'', ''runwell'',-1);';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
Writeln('Inserting row') ;
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
SQL := 'INSERT INTO Test VALUES(3,''Hello'', ''World'',NULL);';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
Writeln('Inserting row') ;
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
SQL := 'INSERT INTO Test VALUES(4,''just a little'', ''test'',-1);';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
Writeln('Inserting row') ;
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
SQL := 'select * from Test;';
rc:=sqlite3_exec(db, PChar(sql), @MyCallback, nil, @pzErrMsg);
if( rc<>SQLITE_OK )
then writeln(Format('SQL error: %s', [pzErrMsg^]));
finally sqlite3_close(db); end;
{$ifdef Windows}
writeln('Hit enter to exit');
Readln;
{$endif}
end.
|
