Amigos, eu uso uma DLL para conectar com a base via DSN do ODBC. Como faço para setar via INI as configurações de usuário/senha na conexão sem a necessidade de ter de alterar o código na hora de alternar entre os ambientes de Desenvolvimento e Produção ?

 

Abraços e obrigado.

Padronize o nome da DSN da conexão, e coloque o caminho do BD no arquivo ini, e nomeie uma variavel publica no sistema para o BD:

 

Public MEUBD As String

MEUBD = Caminho     ' pega o caminho no ini

 

Ai, basta colocar a variável na conexão, vale também para usuário/senha.

Mas veja, de qualquer forma voce tem que nomear a DSN na máquina local.

 

vlu//

 

Obrigado meu amigo. Vc teria um exemplo de .INI e a chamada no código para me enviar ? O arquivo INI deve estar local ou pode ser na rede ?

 

Abraços.

Ok, o arquivo ini, normalmente na pasta do executavel, segue um exemplo de chamada:

No módulo:

 

Public Function sGetINI(sINIFILE As String, sSection As String, sKey _
 As String, sDefault As String) As String
 Dim sTEMP As String * 256
 Dim nLENGTH As Integer
 sTEMP = Space$(256)
 nLENGTH = GetPrivateProfileString(sSection, sKey, sDefault, sTEMP, _
 256, sINIFILE)
 sGetINI = Left$(sTEMP, nLENGTH)
End Function

 

 No form:

 

Private Sub Form_Load()
 Dim sINIFILE As String

 Dim sDRIVE As String
 sINIFILE = App.Path & "NOMEDOARQUIVO.INI"
 sDRIVE = sGetINI(sINIFILE, "UserDrive", "Drive", "?")
 If sDRIVE = "?" Then
  Beep
  MsgBox("Pasta de arquivos não encontrada"
  Unload Me
  End
 End If
End Sub

 

O ARQUIVO INI:

 

[UserDrive]
Drive=C:PASTA

 

Em rede, coloque o executavel em cada máquina juntamente com o arquivo ini, pronto basta mudar o drive e a pasta, sempre direcionando ao servidor.

 

vlu//