RES: [delphi-br] Caminho do Banco na Rede

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

Salve Romario,,,

Outra coisa pode estar relacionado com a pasta onde esta o SGBD.
Como se trata do XP devemos todos ter acesso a essa pasta.
Melhor seria criar um pasta exclusiva e compartilha-la com toda a rede.

[[]]
Eduardo Ledo 

-----Mensagem original-----
De: Romario (Delphi) [mailto:[EMAIL PROTECTED] 
Enviada em: terça-feira, 19 de outubro de 2004 01:28
Para: "Delphi-br (Lista de Discussão)"
Assunto: [delphi-br] Caminho do Banco na Rede


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




 






-- 
<<<<< 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