Tratar de abrir base de datos

[ecfisa]

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