Conexao Com Mysql..? Como Usar No Vb?

[marcellorg]

Amigos..

É o seguinte já faz tempo que não mexo no vb.. por isso me esqueci algumas coias e estou com muitas duvidas..

tenho uma conexao..via ADO para o mysql

coloquei o codigo abaixo em um modulo com o nome CONEXAO.

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.CursorLocation = adUseClient

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _

& "SERVER=127.0.0.1;" _

& "UID=testuser;" _

& "PWD=12345;" _

& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

conn.Open

PRECISO DAS SEGUINTE AJUDA...

PRECISO USAR FORM MDI??

O CODIGO PARA CONEXAO ESTA CORRETO??

2 - NO FORM COMO FAÇO PARA

- INCLUIR

- ALTERAR

- EXCLUIR

- CONSULTAR

tudo como comando SQL usando a conexao do modulo.

NOME DA TABELA: cliente

CAMPOS DA TABELA: nome,sexo,idade

alguém poderiam me fazer um exemplo de como usar no form.. para eu executar as seguinte query´s.

- INCLUIR

- ALTERAR

- EXCLUIR

- CONSULTAR

DESDE JÁ.. MUITO OBRIGADO

[Deborah]

Olá Marcelo...

Sua conexão está correta, mas você precisa visualizar os campos da sua tabela com um recordset. Para isto, basta declará-lo logo abaixo da conexão(abaixo de Set conn = New ADODB.Connection). Assim:

dim nomequalquer as Recordset

em seguida abrir a tabela(abaixo de conn.open):

nomequalquer = "select * from nome_da_sua_tabela", conn, adopendynamic, adlockoptimistic

Para as funções de Consultar, Incluir, Alterar e Excluir, basta igualar o campo em que você esta exibindo os dados com o recordset que voce criou. Por exemplo:

'Consultar:

nome_do_recordset.movefirst

textnome = nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna

'Salvar:

nome_do_recordset.addnew

nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna = textnome

nome_do_recordset.update

nome_do_recordset.updatebatch

'Alterar:

nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna = textnome

nome_do_recordset.update

nome_do_recordset.updatebatch

'Excluir:

nome_do_recordset.delete

nome_do_modulo.nome_da_conexao.nome_do_recordset!nome_da_coluna = textnome

nome_do_recordset.update

nome_do_recordset.updatebatch

E assim você vai fazendo para todas as caixas de texto onde estão sendo exibidos os dados da tabela.

IMPORTANTE: para gravar dados na tabela, sempre igualar o recordset a caixa de texto. Para visualizar dados da tabela na caixa de texto, sempre igualar a caixa de texto ao recordset.

Espero que ajude.

[Deborah]

Marcelo...

se você ficar com dúvida, tem um tuto que pode te ajudar melhor:

http://www.macoratti.net/vbmysql3.htm

Vai lá....

[marcellorg]

Amiga.. valeu mesmo muito obrigado.. me ajudou e muito

[Deborah]

O que precisar tamos ai, com certeza...

Boa sorte!

[marcellorg]

CONSEGUI ACHAR A SOLUÇÃO.. AI VAI

OBRIGADO A TODOS QUE ME AJUDARAM

modulo: conexao

Option Explicit

Dim user As String, senha As String, server As String, porta As String, bancodedados As String

Public con As ADODB.Connection

Public rs As ADODB.Recordset

Public Sub abrirconexao()

Dim con_str As String

Set con = New Connection

bancodedados = "blocksystem"

server = "127.0.0.1"

porta = "3306"

user = "root"

senha = "senha"

con_str = "DRIVER={MySQL ODBC 3.51 Driver};" _

& "SERVER=" & server & ";" _

& "PORT=" & porta & ";" _

& "DATABASE=" & bancodedados & ";" _

& "UID=" & user & ";PWD=" & senha & "; OPTION= 1 + 2 + 8 + 32 + 2048 + 16384"

With con

.CursorLocation = adUseClient

.ConnectionString = con_str

.Open con_str

End With

End Sub

----------------------------------------------------------------------------

No formulario

Option Explicit

Private Sub btnConsultar_Click()

Set rs = con.Execute("select * from texte WHERE id = '" & txtId & "'")

txtnome = rs("NomeCli")

End Sub

Private Sub Form_Load()

abrirconexao

End Sub

Private Sub btnIncluir_Click()

Dim MM As String

MM = "Marcello"

con.Execute ("insert into texte(Nome)" _

& "values('" & MM & "')")

End Sub

[William Rodrigues]

Beleza...

Qualquer coisa...é só dar um toque brother

Abraços,

William Rodrigues

[Guest - Rodrigo -]

Olá pessoal..

Estou tendo problemas em fazer a conexão com o VB no MySQL.

O Bando de Dados esta no servidor, ou seja teria que ser uma conexão remota.

Utilizei o exemplo acima e não tive sucesso !

MySQL V4.5

VB 6.0

Existe alguma configuração que deve ser feita no MySQL, ou no VB ?

Desde já Obrigado