FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
prueba esta solucion...
proba el siguiente, a mi me funcion bien.
procedure tform1.fDbiAddAlias2(AliasName, AliasPath: string); var cursor: hDBICur; begin bde.dbiinit(nil); bde.DbiBeginDelayedUpdates(cursor); bde.DbiApplyDelayedUpdates(cursor,dbiDelayedUPDPREPARE); DbiAddAlias(nil, PChar(AliasName), 'INTRBASE', PChar(AliasPath), True); bde.DbiApplyDelayedUpdates(cursor,dbiDelayedUpdCommit) ; bde.DbiEndDelayedUpdates(cursor); bde.DbiExit; end; procedure TForm1.Button1Click(Sender: TObject); begin fDbiAddAlias2('TKK', 'PATH:127.0.0.1:c:\databases;' + 'SERVER NAME:127.0.0.1:c:\databases\avx.fdb;' + 'USER NAME:SYSDBA;' + 'SQLQRYMODE:SERVER;' + 'SQLPASSTHRU MODE:SHARED NOAUTOCOMMIT'); end; ojo: en uses debes usar DB y BDE |
|
|
|