NAO CONSIGO CONECTAR NO BANCO MYSQL...
olha ja instalei o mysql 5, o mysql front para criar o banco, as tabelas e os campos, ja instalei o driver ODBC 5.1,
no vb eu add a referencia Microsoft ActiveX 2.8 Objct Library,
criei um form com
codigo: 0 - zero é um label com o nome de codigocliente
cliente: textbox - textbox com o nome cliente
telefone: textbox - textbox com o nome telefone
o nome do meu banco no mysql é bdinfo, a tabela cliente, e os campos codigocliente, cliente, telefone....
eu gostaria de saber como faço para criar a conexão no vb6 com o mysql eu não sei usar o mysql nunca usei
só usava access com a referencia DAO 2.5/3.5
oq eu preciso fazer, criar um modulo??? chamar no form, oq eu tenho que colocar em general, e no form para a conexão????
porfavor alguem me ajuda.....
[S73]
desde ja agradeço e aguardo resposta
no vb eu add a referencia Microsoft ActiveX 2.8 Objct Library,
criei um form com
codigo: 0 - zero é um label com o nome de codigocliente
cliente: textbox - textbox com o nome cliente
telefone: textbox - textbox com o nome telefone
o nome do meu banco no mysql é bdinfo, a tabela cliente, e os campos codigocliente, cliente, telefone....
eu gostaria de saber como faço para criar a conexão no vb6 com o mysql eu não sei usar o mysql nunca usei
só usava access com a referencia DAO 2.5/3.5
oq eu preciso fazer, criar um modulo??? chamar no form, oq eu tenho que colocar em general, e no form para a conexão????
porfavor alguem me ajuda.....
[S73]
desde ja agradeço e aguardo resposta
isso usando o DAO 2.5/3.51
DIM BancoMySQL As rdoConnection
Set BancoMySQL = rdoEnvironments(0).OpenConnection([Ô][Ô], rdDriverNoPrompt, False, [Ô]DSN=mysql;UID=root;PWD=[Ô])
DSN = Nome da sua Fonte de Dados ODBC criada em Painel de Controle/Ferramentas Administrativas/Fonte de Dados ODBC
UID = Usuario do Mysql
PWD = senha do banco de dados se houver....
DIM BancoMySQL As rdoConnection
Set BancoMySQL = rdoEnvironments(0).OpenConnection([Ô][Ô], rdDriverNoPrompt, False, [Ô]DSN=mysql;UID=root;PWD=[Ô])
DSN = Nome da sua Fonte de Dados ODBC criada em Painel de Controle/Ferramentas Administrativas/Fonte de Dados ODBC
UID = Usuario do Mysql
PWD = senha do banco de dados se houver....
cara da uma olhada nisso!!
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8369&TxtSearch=mysql&CmbSort=ftitulo&varPagina=1
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8369&TxtSearch=mysql&CmbSort=ftitulo&varPagina=1
de uma olhada neste exemplo e veja se te ajuda em alguma coisa
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7682
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=7682
RICKSOUSA,
Vc pode utilizar desta forma.
[ô] Pode criar um modulo para conexão com o Banco de dados.
Public adoDataConn As New ADODB.Connection
Public Sub AbreConexao()
[ô]********************************************************************************************
[ô] CONFIGURAÇÃO MYSQL
adoDataConn.Open [Ô]Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=NOME_SERVIDOR ;Database=NOME_BANCO;User=NOME_USUARIO;Password=SENHA;Option=2;[Ô]
End Sub
Vc pode utilizar desta forma.
[ô] Pode criar um modulo para conexão com o Banco de dados.
Public adoDataConn As New ADODB.Connection
Public Sub AbreConexao()
[ô]********************************************************************************************
[ô] CONFIGURAÇÃO MYSQL
adoDataConn.Open [Ô]Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=NOME_SERVIDOR ;Database=NOME_BANCO;User=NOME_USUARIO;Password=SENHA;Option=2;[Ô]
End Sub
eu segui o exemplo do MISTERIUS....
eu add a referencia ADO 2.8
em general esta assim:
Public Con As ADODB.Connection
Public rsCC As ADODB.Recordset
Public str_conec
Private Sub Form_Load()
str_conec = [Ô]Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=bdinfo;User=root; Password=maluf307;Option=3;[Ô]
AbreCon
Abre_rsCC
End Sub
Public Sub AbreCon()
[ô]Funçao para abrir conecção
Set Con = New ADODB.Connection
Con.Open str_conec
Con.CursorLocation = adUseClient
End Sub
[ô] Funçao para carregar um recordset
Public Sub Abre_rsCC()
[ô] Aqui passe a sql para retornar
[ô] o recordset para trabalhar
Set rsCC = New ADODB.Recordset
rsCC.Open sql, Con, adOpenDynamic, adLockPessimistic [ô]erro nessa linha
End Sub
quando eu executo o erro aparece na função Abre_rsCC
alguem pode me dar uma ajuda ae???
eu add a referencia ADO 2.8
em general esta assim:
Public Con As ADODB.Connection
Public rsCC As ADODB.Recordset
Public str_conec
Private Sub Form_Load()
str_conec = [Ô]Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=bdinfo;User=root; Password=maluf307;Option=3;[Ô]
AbreCon
Abre_rsCC
End Sub
Public Sub AbreCon()
[ô]Funçao para abrir conecção
Set Con = New ADODB.Connection
Con.Open str_conec
Con.CursorLocation = adUseClient
End Sub
[ô] Funçao para carregar um recordset
Public Sub Abre_rsCC()
[ô] Aqui passe a sql para retornar
[ô] o recordset para trabalhar
Set rsCC = New ADODB.Recordset
rsCC.Open sql, Con, adOpenDynamic, adLockPessimistic [ô]erro nessa linha
End Sub
quando eu executo o erro aparece na função Abre_rsCC
alguem pode me dar uma ajuda ae???
Troca essa linha
str_conec = [Ô]Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=bdinfo;User=root; Password=maluf307;Option=3;[Ô]
str_conec = [Ô]Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=bdinfo;User=root; Password=maluf307;Option=3;[Ô]
DAVIDNUNES, deu o mesmo erro eu troquei a linha como vc disse e aconteceu o mesmo erro, eu tenho os dois drivers instalados,
ODBC 5.1 e o ODBC 3.51
ODBC 5.1 e o ODBC 3.51
Não sei se vou ajudar tenta fazer assim tudo
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub Conectar()
Dim strConnect As String
[ô]esta é a string de conexao
[ô]devera conter a informacao sobre o provedor e o
[ô]caminho do banco de dados
Dim strProvider As String
[ô]guarda o nome do provedor
Dim strDataSource As String
[ô]guarda a fonte de dados
Dim strDataBaseName As String
[ô]nome do banco de dados
Dim usr_id As String [ô] identificacao do usuario para o banco de dados
Dim pass As String [ô] a senha (se tiver) para o banco de dados
Dim mySqlIP As String [ô] o endereco ip da maquina na qual esta o mySql
mySqlIP = [Ô]localhost[Ô] [ô] a localizacao do usuario (localhost)
usr_id = [Ô]root[Ô] [ô] identificacao
pass = [Ô]passaqui[Ô]
cnn.CursorLocation = adUseClient
cnn.Open [Ô]driver={MySQL ODBC 3.51 Driver};server=[Ô] & mySqlIP & [Ô];uid=[Ô] & usr_id & [Ô];pwd=[Ô] & pass & [Ô];database=NOMEDABASE[Ô]
End Sub
Private Sub Form_Load()
Call Conectar
Set rs = New ADODB.Recordset
rsTemp.Open [Ô]Select * FROM TABELA[Ô], cnn, adOpenKeyset, adLockOptimistic
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub Conectar()
Dim strConnect As String
[ô]esta é a string de conexao
[ô]devera conter a informacao sobre o provedor e o
[ô]caminho do banco de dados
Dim strProvider As String
[ô]guarda o nome do provedor
Dim strDataSource As String
[ô]guarda a fonte de dados
Dim strDataBaseName As String
[ô]nome do banco de dados
Dim usr_id As String [ô] identificacao do usuario para o banco de dados
Dim pass As String [ô] a senha (se tiver) para o banco de dados
Dim mySqlIP As String [ô] o endereco ip da maquina na qual esta o mySql
mySqlIP = [Ô]localhost[Ô] [ô] a localizacao do usuario (localhost)
usr_id = [Ô]root[Ô] [ô] identificacao
pass = [Ô]passaqui[Ô]
cnn.CursorLocation = adUseClient
cnn.Open [Ô]driver={MySQL ODBC 3.51 Driver};server=[Ô] & mySqlIP & [Ô];uid=[Ô] & usr_id & [Ô];pwd=[Ô] & pass & [Ô];database=NOMEDABASE[Ô]
End Sub
Private Sub Form_Load()
Call Conectar
Set rs = New ADODB.Recordset
rsTemp.Open [Ô]Select * FROM TABELA[Ô], cnn, adOpenKeyset, adLockOptimistic
DAVIDNUNES agora o form abriu blz, sem dar nenhum erro, então pelo visto tudo ocorreu que ta funcionando perfeitamente.
muito obrigado pela ajuda valeu mesmo.... um abraço
_____________________
Aprendendo cada dia mais
muito obrigado pela ajuda valeu mesmo.... um abraço
_____________________
Aprendendo cada dia mais
Tópico encerrado , respostas não são mais permitidas