ADOConnection con tabla acces.mdb
 

Hola, buenas tardes, este es mi prmer post. Mi nombre en Nicolas, soy de Argentina y tengo 21 años, estoy estudiando Analista Programador y mi consulta es:


Estoy haciendo un programa con una base de datos acces.mdb para practicar, hasta ahi va bien, pero mi problema es que cuando creo el instalador con el "inno setup" y al programa lo instalo en otra PC para ver si anda, me sale un cartel que dice algo asi como que no se puede encontrar la tabla o la ruta de la base no es la correcta...


El programita ya estaria hecho y anda, pero solo en mi PC, por que cuando lo instalo en otra no encuentra la base.


Quisiera consultar si no me podrian dar una manito con algun codigo como para que el programa encuentre la base.


Muchas graciasss.

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Debes dar más información, más clara, el mensaje exacto del error, etc.

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

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 OLEDB:Database Password="";'+
    'Jet OLEDB:Engine Type=5;'+
    'Jet OLEDB:Database 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 OLEDB:Don''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 :D tiene que salir ": D" todo junto

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

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.