Página 1 de 1
Trabajo con LAZARUS, en LINUX (UBUNTU) y en windows
Publicado: Jue, 18 Nov 2010, 08:52
por hathor2009
Hola a todos los nuevos en este excelentisimo Foro que es el de programación. Necesito que alguien me contacte o me explique o me de documentación para trabajar en el Lazarus. Como relacionar BD en una aplicacion y demas cosas..
Agradeceria que alguien me ayudara.
saludos de Antonio
Re: Trabajo con LAZARUS, en LINUX (UBUNTU) y en windows
Publicado: Jue, 09 Dic 2010, 09:22
por pernia
hola, tal vez ya tengas información de como manipular bd desde lazarus, si no es así quizás esto te ayude a ti o otra persona con igual inquietud, esta es la forma como lo hago pues la bibliografía que he encontrado es poca aunque existe el website oficial que está en los créditos de lazarus en el ejemplo utilizo los componentes siguiente:
Data Controls: TDBGrid, TDBNavigator
Data Access: TDatasource
SQLdb: TSQLite3Connection, TSQLTransaction, TSQLQuery
TSQLite3Connection por utilizar una bd sqlite3 en dependencia del tipo de bd que se desea manipular es el conector, para hacer más grafico el ejemplo la relación de estos objetos la muestro en un procedimiento, creo que si se desea o la app lo permita esto se hace en tiempo de diseño
<code>
//dirDb ruta de la base datos ej: '/home/username/mydatabase'
procedure ConnectDb(dirDb: string);
begin
DBNavigator1.DataSource := Datasource1
DBGrid1.DataSource := Datasource1
with SQLite3Connection1 do begin
DatabaseName := dirDb;
Transaction := SQLTransaction1;
Open;
end;
SQLTransaction1.DataBase := SQLite3Connection1;
Datasource1.DataSet := SQLQuery1;
with SQLQuery1 do begin
DataBase := SQLite3Connection1;
Transaction := SQLTransaction1;
SQL.Add('select * from articulo');
Open;
end;
end;
</code>
En caso de server como MySQL-5.0 se debe especificar además UserName, HostName, Password y Port.
<code>
with MySQL50Connection1 do begin
DatabaseName := dirDb;
UserName := 'root';
HostName := 'localhost';
Password := 'toor';
Port := 3306;
Transaction := SQLTransaction1;
Open;
end;
</code>
saludos