[delphi-br] Caminho do Banco na Rede

Mon, 18 Oct 2004 20:28:20 -0700 

Senhores(as),

Estou tentanto fazer com que minha aplicação se conecte ao banco de 
dados na rede e não estou conseguindo.

Alguém poderia me dizer se estou fazendo alguma besteira no 
preenchimento do TSQLCOnnection através de dados de um arquivo INI?

{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }

Procedure Tdtm_base.cnn_conexaoBeforeConnect(Sender: TObject);
Var
   Ini: TIniFile;
Begin

   Ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 
'Teste.ini');

   With cnn_conexao do
   Begin

     Try

       Params.Clear;

       Params.Values['DriverName'] := Ini.ReadString('Borracha', 
'DriverName', 'Interbase');

       Params.Values['Database'] := Ini.ReadString('Borracha', 
'Database', '..\Database\borracha.fdb');

       Params.Values['RoleName'] := Ini.ReadString('Borracha', 
'RoleName', 'RoleName');

       Params.Values['User_Name'] := Ini.ReadString('Borracha', 
'User_Name', 'sysdba');

       Params.Values['Password'] := Ini.ReadString('Borracha', 
'Password', 'masterkey');

       Params.Values['ServerCharSet'] := Ini.ReadString('Borracha', 
'ServerCharSet', 'WIN1252');

       Params.Values['SQLDialect'] := Ini.ReadString('Borracha', 
'SQLDialect', '3');

       Params.Values['ErrorResourceFile'] := Ini.ReadString('Borracha', 
'ErrorResourceFile', '');

       Params.Values['LocaleCode'] := Ini.ReadString('Borracha', 
'LocaleCode', '0000');

       Params.Values['BlobSize'] := Ini.ReadString('Borracha', 
'BlobSize', '-1');

       Params.Values['CommitRetain'] := Ini.ReadString('Borracha', 
'CommitRetain', 'False');

       Params.Values['WaitOnLocks'] := Ini.ReadString('Borracha', 
'WaitOnLocks', 'True');

       Params.Values['Interbase TransIsolation'] := 
Ini.ReadString('Borracha', 'Interbase TransIsolation', 'ReadCommited');

       Params.Values['Trim Char'] := Ini.ReadString('Borracha', 'Trim 
Char', 'False');

     Finally

       Ini.Free;

     End;

   End;

End;

{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }

Também tentei dessa outra forma e não obtive êxito.

Procedure Tdtm_base.cnn_conexaoBeforeConnect(Sender: TObject);
Var
   Ini: TIniFile;
Begin

   Ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 
'Teste.ini');

   With cnn_conexao do
   Begin

     Try

       Params.Clear;

       Params.Add('DriverName:=' + Ini.ReadString('Borracha', 
'DriverName', 'Interbase'));

       Params.Add('Database:=' + Ini.ReadString('Borracha', 'Database', 
'..\Database\borracha.fdb'));

       Params.Add('RoleName:=' + Ini.ReadString('Borracha', 'RoleName', 
'RoleName'));

       Params.Add('User_Name:=' + Ini.ReadString('Borracha', 
'User_Name', 'sysdba'));

       Params.Add('Password:=' + Ini.ReadString('Borracha', 'Password', 
'masterkey'));

       Params.Add('ServerCharSet:=' + Ini.ReadString('Borracha', 
'ServerCharSet', 'WIN1252'));

       Params.Add('SQLDialect:=' + Ini.ReadString('Borracha', 
'SQLDialect', '3'));

       Params.Add('ErrorResourceFile:=' + Ini.ReadString('Borracha', 
'ErrorResourceFile', ''));

       Params.Add('LocaleCode:=' + Ini.ReadString('Borracha', 
'LocaleCode', '0000'));

       Params.Add('BlobSize:=' + Ini.ReadString('Borracha', 'BlobSize', 
'-1'));

       Params.Add('CommitRetain:=' + Ini.ReadString('Borracha', 
'CommitRetain', 'False'));

       Params.Add('WaitOnLocks:=' + Ini.ReadString('Borracha', 
'WaitOnLocks', 'True'));

       Params.Add('Interbase TransIsolation:=' + 
Ini.ReadString('Borracha', 'Interbase TransIsolation', 'ReadCommited'));

       Params.Add('Trim Char:=' + Ini.ReadString('Borracha', 'Trim 
Char', 'False'));

     Finally

       Ini.Free;

     End;

   End;

End;

{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }

Meu arquivo INI está da seguinte forma:

[Borracha]
DriverName=Interbase
Database=RBR:C:\Documents and Settings\All 
Users\Documentos\Borracha\Database\borracha.fdb
RoleName=RoleName
User_Name=sysdba
Password=masterkey
ServerCharSet=WIN1252
SQLDialect=3
ErrorResourceFile=
LocaleCode=0000
BlobSize=-1
CommitRetain=False
WaitOnLocks=True
Interbase TransIsolation=ReadCommited
Trim Char=False

{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }

Agradeço qualquer dica, exemplo, ou link que me ajude a solucionar esse 
problema.

Sds,

Romario


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a