Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa Tarde
estou migrando uma aplicação de vb6 para vb2008
sabendo que o computador servidor sempre terá o nome de SERVANT, quando o sistema é iniciado pela primeira vez,
criei uma função que busca pelo IP do computador com nome de servant
verifico se a maquina tem nome diferente de SERVANT se tiver ai eu crio um INI como o IP da maquina servidor
No vb6 na sub main eu verifico o nome do computador
Dim Comn As String
if for SERVANT then
Comc = "LocalHost" & ":C:\Pasta\BANCO.FDB"
else
Leio o arquivo ini
IP = IPDOARQUIVOINI
Comc = IP & ":C:\Pasta\BANCO.FDB"
end if
faço a conexão
set cnn= New Ado.Connection
Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=IBOLE.PROVIDER;Data Source=" & Comc & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"
Pergunto --->> como eu faria este mesmo processo em vb2008 ?
Obrigado
Carregando comentários...