0

Hi, I have a new problem in my project.
For connect to database and to creat her i used DISQLite3 Personal_1.3.4.I've learnd how to show sa table but just in a richedit and i don't know how to put the information in a table. help pls. Here is how i put the information in a richtext:

procedure Deschide_DB;
begin
  sqlite3_check(sqlite3_open(PAnsiChar('dan.db'), @DB), DB);
end;
procedure Inchide_DB;
begin
  sqlite3_check(sqlite3_close(DB), DB);
end;
function WriteRowCallback(UserData: Pointer; ColumnCount: Integer; ColumnValues, ColumnNames: PPAnsiCharArray): Integer;
var
  i: Integer;
begin
with Form1 do
begin
      Log.Lines.Add(ColumnValues[0]+' '+ColumnValues[1]);
      Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
      Deschide_DB;
      sqlite3_check(sqlite3_exec(DB,
        'select * from studenti;',
        WriteRowCallback, nil, nil),
        DB);
      Inchide_DB;
end;
end;
2
Contributors
2
Replies
3
Views
10 Years
Discussion Span
Last Post by dragoshstoica
0

u can use information database and table..with comobj..for example:
rs: _recordsheet;

rs:= ConnectionObject.OpenSchema(adSchemaTable, EmptyParams, EmptyParams);

it's for load information about table which database u select

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.