Cita:
Empezado por nmenna10
Hola muchas gracias por tu respuesta, seria mucha molestia que me des una manito con el codigo??? por que no me doy cuenta como hacerlo.
pero si no te incomodo con otra cosa..
Desde ya muchas gracias.
|
No tiene mayor misterio:
1. En el
DataModule (supongo que usas un DataModule) pongo después de
implementation:
2. En un procedure, o function, cualquiera que llames para establecer la conexión y abrir las tablas:
Código Delphi
[-]procedure TDM1.AbrirTablas;
begin
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := '';
TheBaseDatos := ';Data Source='+WideString(AppPath+'\Data\MyAccessBD.mdb');
ADOConnection1.ConnectionString := ADOConn+TheBaseDatos;
ADOConnection1.Connected := True;
adoTable1.Active := True;
....
end;
AppPath es es la ruta de tu aplicación que puedes obtener de diferentes maneras.
Como ves uso Jet, pero puedes usar otro motor. El asunto está en capturar la cadena de texto del ADOConnection, esa que está en la propiedad ConnectionString cuando Connection es True.
------------
Donde sale
tiene que salir ": D" todo junto