ADOConnection con tabla acces.mdb

[Northern]

Yo lo que hago es capturar la cadena que se crea en ADOConnectionString quitarle la ruta de la BD y pasarla a una variable. Después leo la ruta del ejecutable y donde está la *.MDB, normalmente en una subcarpeta dentro de la carpeta del ejecutable. Asocio esa ruta al ConnectionString y yastá (suponiendo que el PC donde instalas la aplicación tenga el MDAC).

[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.

[Northern]

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:

Código Delphi [-]
const
  AdoConn: WideString =
    'Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Password="";'+
    'User ID=Admin;'+
    'Mode=Share Deny None;'+
    'Extended Properties="";'+
    'Locale Identifier=1034;'+
    'Jet OLEDB:System database="";'+
    'Jet OLEDB:Registry Path="";'+
    'Jet OLEDBatabase Password="";'+
    'Jet OLEDB:Engine Type=5;'+
    'Jet OLEDBatabase Locking Mode=1;'+
    'Jet OLEDB:Global Partial Bulk Ops=2;'+
    'Jet OLEDB:Global Bulk Transactions=1;'+
    'Jet OLEDB:New Database Password="";'+
    'Jet OLEDB:Create System Database=False;'+
    'Jet OLEDB:Encrypt Database=False;'+
    'Jet OLEDBon''t Copy Locale on Compact=False;'+
    'Jet OLEDB:Compact Without Replica Repair=False;'+
    'Jet OLEDB:SFP=False';


var
  TheBaseDatos: WideString;

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

[nmenna10]

Muchas pero muchas Gracias!!! ahora a probarloo graciassss.

[nmenna10]

Bueno queria avisarles que me andubo a la perfeccion la explicacion y codigo que me enseñaste, muchisimas gracias por ayudarme, nos vemos suerte y saludoss.