FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
coneccion en tiempo de ejecucion.
aca les dejo una forma funcional probada de coneccion en tiempo de ejecucion a base de datos access con ADO.
utilizo un opendialog para buscar la base de datos, recuerden poner en su propiedad filter (Microsoft access|*.mdb). tambien utiliza un archivo ini para cargar la ultima base de datos con la que trabajamos. Código:
procedure TForm1.Button2Click(Sender: TObject); begin if opendialog1.Execute then adoquery1.Active:= false; adoconnection1.Connected:= false; ADOconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+';Persist Security Info=False'; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var path: string; begin path := ExtractFilePath(Application.ExeName) + 'Datos.ini'; dirini := TIniFile.Create(path); try dirini.WriteString('Opendialog1','Last',opendialog1.FileName) ; finally dirini.Free; end; end; procedure TForm1.FormCreate(Sender: TObject); var path: String; begin path := ExtractFilePath(Application.ExeName) + 'Datos.ini'; dirini := TIniFile.Create(path); try opendialog1.FileName:= dirini.ReadString('Opendialog1','Last',''); ADOconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.FileName+';Persist Security Info=False'; finally dirini.Free; end; end; |
#2
|
||||
|
||||
Hola
Interesante concepto, gracias por el aporte. Saludos
__________________
Siempre Novato |
#3
|
|||
|
|||
Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TPageControl en tiempo de ejecución | esocrates | Varios | 34 | 13-12-2010 17:07:19 |
Conección ADO en tiempo de ejecución | utopico | Conexión con bases de datos | 2 | 01-08-2007 23:15:33 |
Reporte en tiempo de ejecucion | rex | Impresión | 2 | 01-10-2006 05:53:41 |
Formularios en Tiempo de Ejecucion | rocio84 | Varios | 3 | 26-10-2005 21:07:29 |
Tiempo de ejecucion? | st7 | Varios | 3 | 11-05-2004 22:03:28 |
|