CONEXAO COM MYSQL..?? COMO USAR NO VB?? AJUDE ME!

USUARIO.EXCLUIDOS 10/05/2004 11:29:09
#23882
Amigos..
é o seguinte ja 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

alguem 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
TAMANINI 10/05/2004 14:03:10
#23925 Resposta escolhida
1)Não precisa usar MDI!
A conexão está quase correta, faltou informar o mais importante de tudo, o banco de dados.
Um exemplo:
sConexão = Empty
sConexão = sConexão & "DRIVER={MySQL ODBC 3.51 Driver};"
sConexão = sConexão & "SERVER=" & Servidor & ";"
sConexão = sConexão & "DATABASE=" & banco & ";"
sConexão = sConexão & "UID=" & Usuario & ";"
sConexão = sConexão & "PWD=" & Senha & ";"
sConexão = sConexão & "OPTION=35"
conn.CursorLocation = adUseClient
conn.ConnectionString = sConexão
conn.open

2) Tem bastante informações aqui no site de como incluir, alterar, excluir e consultar, se não em engano tem um artigo do Renato, dê uma procurada.
Vlw?
TAMANINI 10/05/2004 17:06:53
#23966
Tanto faz!
Acho mais correto no modulo!
Deixe a variavel conn como public e assim vc pode usar nos outros forms!
OK?
TAMANINI 11/05/2004 10:30:46
#24062
Acrescente a propriedade que vc colocava antes tb!
conn.CursorLocation = adUseClient
ficando assim:
With con
.CursorLocation = adUseClient
.ConnectionString = con_str
.Open con_str
End With
Assim trabalhará mais rápido, apesar que já deve estar por padrão!
Tópico encerrado , respostas não são mais permitidas
Voltar