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', '');
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',
''));
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=
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