AJUDA COM CONEXAO VIA ODBC
Caros amigos do vbMania.tô fazendo uma aplicação em vb6 que necessita manipular ums 7 banco de dados .
Mas o problema nã é esse.....
depois dafazer de desenvolvimento esse sietminha teráque rodar em váias estsações de trabalho.
Caros amigos como faço uma conexão via ODBC com o SQL SERVER 7 no vb6..
essa é minha duvida..
Obrigado a todos....
um abraço
Mas o problema nã é esse.....
depois dafazer de desenvolvimento esse sietminha teráque rodar em váias estsações de trabalho.
Caros amigos como faço uma conexão via ODBC com o SQL SERVER 7 no vb6..
essa é minha duvida..
Obrigado a todos....
um abraço
1. Crie a conexão ODBC usando o assistente do WINDOWS (Iniciar > Executar > odbcad32)
2. Adicione uma referência ao Microsoft ActiveX DataObjects 2.x
3. Copie o código abaixo e cole no FORM
2. Adicione uma referência ao Microsoft ActiveX DataObjects 2.x
3. Copie o código abaixo e cole no FORM
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open [Ô]DSN=<nome_do_dsn>[Ô]
MsgBox [Ô]Conectado![Ô]
de uma olhada neste site http://www.connectionstrings.com/
tem todo tipo de string de conexão para qualquer banco conhecido
tem todo tipo de string de conexão para qualquer banco conhecido
Valeu Galera.....
seguinto a orientação de vocês ficou assim :
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open [Ô]Provider=SQLOLEDB;DSN=<NOME DO ODBC>;User Id=<USUARIO>;Password=<SENHA>; Initial Catalog=<BANCO DE DADOS>;Trusted_Connection=yes;[Ô]
MsgBox [Ô]Conectado![Ô]
con.Close
Funcionou perfeitamente...
Um abraço........
seguinto a orientação de vocês ficou assim :
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open [Ô]Provider=SQLOLEDB;DSN=<NOME DO ODBC>;User Id=<USUARIO>;Password=<SENHA>; Initial Catalog=<BANCO DE DADOS>;Trusted_Connection=yes;[Ô]
MsgBox [Ô]Conectado![Ô]
con.Close
Funcionou perfeitamente...
Um abraço........
Problema resolvido!
Favor encerrar o tópico.
Favor encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas