Hola piolin85.
Para reproducir el ejemplo, en un formulario agrega los siguientes componentes de la pestaña
Interbase:
- TIBDatabase
- TIBTransaction
- TIBQuery
- TDataSource
- TDBGrid
y también copia la base de datos (
CuotasMensuales.fdb) a la misma carpeta donde tenes la aplicación.
Luego en el evento
OnCreate del formulario:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
IBTransaction1.DefaultDatabase := IBDatabase1;
IBQuery1.Database := IBDatabase1;
DataSource1.DataSet := IBQuery1;
DBGrid1.DataSource := DataSource1;
with IBDatabase1 do
begin
DatabaseName:= ExtractFilePath(Application.Exename)+'CuotasMensuales.fdb';
DefaultTransaction:= IBTransaction1;
Params.Clear;
LoginPrompt:= False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
try
Open;
except
MessageBox(0, 'No se pudo establecer conexión con la base de datos','',MB_ICONERROR);
Application.Terminate;
end;
end;
IBTransaction1.StartTransaction;
with IBQuery1 do
begin
Close;
SQL.Text:= 'SELECT * FROM CLIENTE';
Open;
end;
end;
Este código lo puse para evitar la posibilidad de equívocos, pero todas las asignaciones las podes hacer desde el
Object Inspector en tiempo de diseño.
Salida:
Saludos