USANDO .INI PARA DEFINIR IP DO BANCO DE DADOS

WEBIER 14/10/2014 00:05:29
#441901
tenho um .bas onde indica o IP do servidor SQL, atualmente assim:

cn1 = [Ô]Provider=sqloledb;Network Library=DBMSSOCN;Data Source=192.168.1.20,1433;Initial Catalog=cyber_base;User ID=sa;Password=190106;Connect Timeout=10;General Timeout=0;Packet Size=8192;[Ô]


ai criei um arquivo INI para definir o IP localmente:
Config.INI

[IP_MAQUINA]
ip=127.0.0.1


dentro do arquivo .bas que definir o IP da conexao, mudei para assim;
[ô]general_declaration
Public oCfg As ConfigItem
Public oIni As Ini
Public var_IP As String

[ô]pegar dados no arquivo txt
   Set oIni = New Ini
   oIni.Arquivo = appPathApp & [Ô]config.ini[Ô]
   var_IP = oIni.LerTexto([Ô]IP_MAQUINA[Ô], [Ô]ip[Ô])
   Set oIni = Nothing

   cn1 = [Ô]Provider=sqloledb;Network Library=DBMSSOCN;Data Source=var_IP,1433;Initial Catalog=cyber_base;User ID=sa;Password=190106;Connect Timeout=10;General Timeout=0;Packet Size=8192;[Ô]


E não deu certo na parte do ...Data Source=var_IP...
MARCELO.TREZE 14/10/2014 08:09:15
#441902 Resposta escolhida
Wieber cn1 é uma string de conexão, então você deve trata-la como string ou seja para colocar a variavel onde deseja tem que fechar e abrir aspas veja

cn1 = [Ô]Provider=sqloledb;Network Library=DBMSSOCN;Data Source=[Ô] [txt-color=#0000f0]& var_IP &[/txt-color] [Ô],1433;Initial Catalog=cyber_base;User ID=sa;Password=190106;Connect Timeout=10;General Timeout=0;Packet Size=8192;[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar