no me funciona el cambio de path con access
Publicado por el aprendiz (26 intervenciones) el 04/05/2005 16:21:44
me pasaron este codigo para cambien el path y para crear un alias en tiempo de ejecucion la cosa es que me funciona solo para tablas de dbase pero no para access, me manda el error 'cannot load an idapi service library, file c:\windows\msapps\dao\dao3032.dll alias:midatabase.mdb' que puedo hacer; como driver le puse MSAccess por que no me reconocia 'access' ni 'microsoft access driver', gracias por su ayuda.................
CAMBIAR EL PATH AL ALIAS EN TIEMPO DE EJECUCION
//DataBaseName := 'TuAlias' ;
//DriverName := 'STANDARD' ;
//Params.Value['PATH'] := 'C:\TuDirectorio' ;
//Params.Value['DEFAULT DRIVER' ] :='PARADOX'
//Params.Value['ENABLE BCD'] :=FALSE ;
//Para cambiar el Directorio en tiempo de ejecución.
//Database1.Connected := False ;
//Database1.Params.Values['Path'] := 'c:\TuNuevoDirectorio' ;
//Database1.Connected := True ;
alias 'temporal' en nuestra aplicación. Este truco te enseña como hacer uno. Delphi crea un objeto TSession automaticamente, (Session) siempre que utilices alguna database en tu aplicación. Tan sólo tendremos que utilizarloUsaremos el método AddStandardAlias para crear el alias:
//procedure TForm1.Button1Click(Sender: TObject);
// begin
// Session.AddStandardAlias('AliasName','c:\Patch\','DBASE');
// end;
CAMBIAR EL PATH AL ALIAS EN TIEMPO DE EJECUCION
//DataBaseName := 'TuAlias' ;
//DriverName := 'STANDARD' ;
//Params.Value['PATH'] := 'C:\TuDirectorio' ;
//Params.Value['DEFAULT DRIVER' ] :='PARADOX'
//Params.Value['ENABLE BCD'] :=FALSE ;
//Para cambiar el Directorio en tiempo de ejecución.
//Database1.Connected := False ;
//Database1.Params.Values['Path'] := 'c:\TuNuevoDirectorio' ;
//Database1.Connected := True ;
alias 'temporal' en nuestra aplicación. Este truco te enseña como hacer uno. Delphi crea un objeto TSession automaticamente, (Session) siempre que utilices alguna database en tu aplicación. Tan sólo tendremos que utilizarloUsaremos el método AddStandardAlias para crear el alias:
//procedure TForm1.Button1Click(Sender: TObject);
// begin
// Session.AddStandardAlias('AliasName','c:\Patch\','DBASE');
// end;
Valora esta pregunta


0