Bom dia a Todos...

 

Como colocar a string de conexão com o banco de dados abaixo em um arquivo .ini.

Pois toda a vez que mudo o banco e a senha preciso ficar mudando o programa e não queria fazer mais isso.

Preciso de uma explicação passo a passo, se possível com o código, pois já tentei fazer isso porém me enrolei todo.....Vou tentar novamente.

Muito Obrigado........

 

Dim bd As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String

bd.Open ("DSN=NOME_DSN;uid=;pwd=")

 

Vc vai seguir esta dica: http://www.vbweb.com.br/dicas_visual.asp?Codigo=2501&Classificacao=

 

e gravar deste modo:

 

pra gravar
WriteINI "c:windowsconf.ini", "Banco", "Banco", Nome_DSN

 

pra ler
ReadINI("C:Windowsconf.ini", "Banco", "Banco")

 

No arquivo .ini vai estar assim:

 

[BANCO]
BANCO=NOME_DSN

Se fosse access poderia ser assim gravado no arquivo:

 

[BANCO]
BANCO=C:BANCO.MDB

 

Vc pode gravar outros parâmetros como usuário e até senha (só tomar cuidado com senha por causa da segurança)

 

WriteINI "c:windowsconf.ini", "Banco", "Banco", Nome_DSN

WriteINI "c:windowsconf.ini", "Banco", "USUARIO", Nome_USER

WriteINI "c:windowsconf.ini", "Banco", "SENHA", SENHA

 

 

No .ini estaria assim por exemplo:

 

[BANCO]

BANCO=NOME_DSN
USUARIO=NOME_USER

SENHA=SENHA

 

qq dúvida é só postar

 

at+

OK! Ajudou d+

 

Muito Obrigado.......

 

Só mais uma dúvida.

 

Estou fazenda da seguinte maneira:

 

aaa = ReadINI("Abrir", "ODBC", App.Path & "DDS.ini")
bbb = ReadINI("Abrir", "USUARIO", App.Path & "DDS.ini")
ccc = ReadINI("Abrir", "SENHA", App.Path & "DDS.ini")

Adodc1.ConnectionString = ("DSN=" & aaa & ";uid=" & bbb & ";pwd=" & ccc & "")

 

Gostaria de setar as variaveis aaa. bbb e ccc para que fossem vistas por todo o programa pra não ter que ficar fazendo um monte. Tem jeito?

 

Renato

 

Nomeie como publicas em um módulo:

Public aaa As String

Public bbb As String

 

vlu//