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
Trabajo con LAZARUS, en LINUX (UBUNTU) y en windows
-
- Mensajes: 4
- Registrado: Lun, 20 Sep 2010, 10:39
Trabajo con LAZARUS, en LINUX (UBUNTU) y en windows
Antonio Jesús Gort López.
Estudiante de Contabilidad en 4to Año.
INRH Dirección Provincial de Pinar del Río.
_________________
Un buen programador no se mide por los programas que hace,
sino por lo que ayuda a los demás programadores.
Estudiante de Contabilidad en 4to Año.
INRH Dirección Provincial de Pinar del Río.
_________________
Un buen programador no se mide por los programas que hace,
sino por lo que ayuda a los demás programadores.
Re: Trabajo con LAZARUS, en LINUX (UBUNTU) y en windows
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
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