[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