GerTorresM
29-02-2012, 00:16:10
Hola a todos
Estoy trabajando con delphi y uso como BD M$ Acce$$ 97, en mi equipo tengo instalado el off 2003 y el la máquina donde hago pruebas Off 2007.
Tengo la siguiente función para realizar una conexión a la base de datos con la que debo trabajar
function ConexionBDADO(pNombreBaseDatos, pRuta, pContrasena : String) : Boolean;
var ConStr_local : String;
begin
Result:= False;
if FileExists(pRuta + pNombreBaseDatos) then
begin
ConStr_local:= 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+ pRuta + pNombreBaseDatos + ';'+
'Persist Security Info=False;'+
'Jet OLEDBatabase Password= ' + pContrasena;
BaseDatosAplicacion:= TADOConnection.Create(nil);
BaseDatosAplicacion.ConnectionString:= ConStr_local;
BaseDatosAplicacion.LoginPrompt:= False;
BaseDatosAplicacion.open;
Result:= True;
end
else begin
Showmessage('No existe la base de datos');
exit;
end;
end;
bien cuando ejecuto el aplicativo en cualquiera de las dos máquinas la función me envía el siguiente mensaje "no se pudo encontrar el archivo ISAM Instalable" que puede ser.
Agradezco de antemano su colaboración
Cordialmente
gertorresm
Colombia
Estoy trabajando con delphi y uso como BD M$ Acce$$ 97, en mi equipo tengo instalado el off 2003 y el la máquina donde hago pruebas Off 2007.
Tengo la siguiente función para realizar una conexión a la base de datos con la que debo trabajar
function ConexionBDADO(pNombreBaseDatos, pRuta, pContrasena : String) : Boolean;
var ConStr_local : String;
begin
Result:= False;
if FileExists(pRuta + pNombreBaseDatos) then
begin
ConStr_local:= 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+ pRuta + pNombreBaseDatos + ';'+
'Persist Security Info=False;'+
'Jet OLEDBatabase Password= ' + pContrasena;
BaseDatosAplicacion:= TADOConnection.Create(nil);
BaseDatosAplicacion.ConnectionString:= ConStr_local;
BaseDatosAplicacion.LoginPrompt:= False;
BaseDatosAplicacion.open;
Result:= True;
end
else begin
Showmessage('No existe la base de datos');
exit;
end;
end;
bien cuando ejecuto el aplicativo en cualquiera de las dos máquinas la función me envía el siguiente mensaje "no se pudo encontrar el archivo ISAM Instalable" que puede ser.
Agradezco de antemano su colaboración
Cordialmente
gertorresm
Colombia