subject:"\[delphi\-br\] Caminho do Banco na Rede"

[delphi-br] Caminho do Banco na Rede

2004-10-18 Por tôpico Romario (Delphi)


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

* 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

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

2004-10-18 Por tôpico Eduardo Ledo


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

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

2004-10-18 Por tôpico Romario (Delphi)


Eduardo,

Obrigado por tentar ajudar!

Nas máquinas que estou fazendo o teste não tem IP setado. Estou tendo 
que buscar pelo nome da máquina servidora.

Elas se enxergam na rede e a pasta está compartilhada, mas em runtime 
não funciona nem à tapa.

Fiz um teste setando o caminho diretamente no TSQLConnection e quando 
altero a propriedade Connected para True ele funciona, mas em runtime 
volta a dar erro.

Mesmo com a aplicação rodando no servidor, não estou conseguindo acessar 
o banco de dados fora da pasta onde foi criado o projeto.

Se tiver mais alguma dica...

Sds,

Romario



Eduardo Ledo escreveu:
 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 


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

[delphi-br] Caminho do Banco na Rede

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

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

3 matches

Site Navigation

Mail list logo

Footer information