FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Alguien ha utilizado dbiaddalias()
es una función de bde para crear un alias desde delphi.
Pues bien, necesito crear una para INTRBASE, sigo lo que dice el manual, en un principio no peta pero me voy al bdeadmin y no aparece la entrada que en teoria se ha creado. alguien lo ha hecho, alguien tiene algun ejemplo. Gracias. |
#2
|
||||
|
||||
El último parámetro de la función es para indicar si el alias se guarad para todas las sesiones o sólo para la sesión actual. ¿Intentaste ponerlo en true?
// Saludos |
#3
|
|||
|
|||
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 |
|
|
|