Member Avatar for dragoshstoica

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
  • 97 Views
  • 2 Months Discussion Span
  • Latest Post Latest Post by dragoshstoica
Member Avatar for yhoezt

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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.