Ver Mensaje Individual
  #4  
Antiguo 24-01-2009
Avatar de fjcg02
[fjcg02] fjcg02 is offline
Miembro Premium
 
Registrado: dic 2003
Ubicación: Zamudio
Posts: 1.410
Reputación: 22
fjcg02 Va camino a la fama
Pon este código en el FormCreate

Código Delphi [-]
   Conexion.Connected:= False;
   Conexion.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;' +
     'Data Source= '+ wdatos+'Presupuestos.mdb;';
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';
De esta manera no se utiliza odbc, sino que se utiliza JetOleDB. Así se manipula la cadena de conexión del TADODatabase.
wdatos es el directorio donde está el mdb. Yo lo pongo en este procedimiento porque indico en un ini el directorio del mdb. No creo que te cueste demasiado adaptarlo para que seleccione el mdb el propio usuario.
Por otro lado puedes generar la cadena de conexión y revisarla con cualquier editor de texto.

Saludos
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
Responder Con Cita