Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Firebird + Delphi Connect ==> Adiciona Tu Forma de Hacerlo (https://www.clubdelphi.com/foros/showthread.php?t=69736)

Lynn 04-09-2010 15:46:26

Firebird + Delphi Connect ==> Adiciona Tu Forma de Hacerlo
 
Bueno A Continuacion Quisiera Saber de que forma mas se puede Conectar una Base de Datos en Firebird em Delphi por que me he dado cuenta que puede tambien poner la ruta en archivo txt o tambien con ruta encriptada me parece bueno pero nada de componentes aqui dejo mi procedimiento solo es coneccion mas o no es don DbGrid o Data Set etc solo Conectar nada mas Agradeceria Si lo Puede Poner de Forma Grafica Para Mejor Entendimiento de Todo tipo Persona Avanzandos, Profesionales, Principiantes, Curiosos, Etc

1. Creo un Pequeño Formulario Creado para Iniciar

2. Acontinuacion me Dirijo a las Paletas de InterBase y Desgloso

3 Agrego al Formulario el TIBDatabase

4. y Tambien Agrego TIBTransaction

5. Todo al Formulario

6. Selecionamos el TIBDatabase

7. Acemos Doble Clic y nos sale una Ventana y damos Browse

8. Buscamos la base de datos y damos abrir

9. incribimos el usuario y la contraseña

10. Quitamos la Opcion de Login prompt y damos Tes y Damos ok Si esta bien la Connecion

11. Nos vamos a Propiedades y en la opccion Connectd Cambiamos False Por True

12. Seleccionamos ahora la IDTransaction1

13. Vamos a la opcion de Propiedades y la opcion DefaultDatabase y Selecionamos IBDataBase1

y eso Todo Quisera Saber Su Forma de Conectar como explique direccionando la base de datos desde un TXT pero sin Componentes

duilioisola 05-09-2010 11:32:49

Creo entender que quieres saber formas de conectar con Firebird desde cófigo.

Código Delphi [-]
procedure TDMMain.Conectar;
var
  oIni: TIniFile;
begin
  oIni := TIniFile.Create('MiPrograma.ini');
  with DBMain do //Con la base de datos
  begin
    // Si está conectada, la desconectamos
    if (DefaultTransaction.InTransaction) then
      DefaultTransaction.Commit;
    if Connected then
      Close;
    // Asignamos la base de datos del archivo ini
    DataBaseName := oIni.ReadString('Datos', 'BaseDeDatos', '');
    // Nombre de usuario y contraseña
    Params.Clear;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    // Abrimos la base de datos
    Open;
    // Abrimos la transacción principal
    DefaultTransaction.StartTransaction;
  end;
  oIni.Free;
end;


La franja horaria es GMT +2. Ahora son las 08:07:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi