[Resolvido] Arquivo .INI

[mibnetweb 0]

Oi!!!

 

Posta a sua rotina de conexao com o bd pra gente analisar. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[mibnetweb 0]

Acho que encontrei o problema:

 

Function GetIni(SECTION, KEY, arq)

	Dim Retorno As String * 500
	
	Dim arquivoINI As String
	
	Dim tamanho As Long
	
	arquivoINI = App.Path & "\" & arq
	
	tamanho = GetPrivateProfileString(SECTION, KEY, "NãoEncontrado", Retorno, Len(Retorno) + 1, arquivoINI)
	
	GetIni = Left(Retorno, tamanho)
	
End Function

O problema está no retorno, faça um teste e depois nos diga se funcionou!!!

[SabrinaBottan 0]

Funcionou

Muito obrigada :lol:

[mibnetweb 0]

Beleza!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Precisando tamos ai !!!

 

 

Claudio Neto, pode fechar o tópico!

[Claudio Neto 3]

Funcionou

Muito obrigada :lol:

Só por favor, poste como ficou sua solução para que a mesma sirva para outros...

[SabrinaBottan 0]

No Módulo Bas

 

Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

 

Função no mesmo módulo .BAS:

 

Function GetIni(SECTION, KEY, arq)

	Dim Retorno As String * 500
   
	Dim arquivoINI As String
   
	Dim tamanho As Long
   
	arquivoINI = App.Path & "\" & arq
   
	tamanho = GetPrivateProfileString(SECTION, KEY, "NãoEncontrado", Retorno, Len(Retorno) + 1, arquivoINI)
   
	GetIni = Left(Retorno, tamanho)
   
End Function

Para chamar a função

 

str_Cn = GetIni("Conexao", "Conexao", "Teste.ini")

 

No arquivo Teste.ini

 

[Conexao]

Conexao = "Provider=MSDAORA;Data Source=PRODUCAO;Password=USER;User Id=USER1"