CONECTAR VB6 AO BANCO MYSQL
vc viu o exemplo de conexão do XXXXANGELXXXX, então use ele em um módulo. a conexão está feita.
feito a conexão vc poderá fazer tudo mais, veja como é fácil
no Load do form principal, vc conecta, se for uma conexão local vc pode conectar e desconectar a cada evento.
exemplo:
Conecta true
faz alguma coisa
Conecta False
para rede aconselho a fazer a conexão no load do form principal, e desconectar somente no unload do form principal.
a conexão está feita certo, agora vamos aos eventos.
vc pode fazer Assim
Para usar o SELECT
Dim RS As Recordset
sSQL = [Ô]SELECT * FROM tabela[Ô]
Set RS = Conexao.Execute(sSQL)
para Inserir, Deletar, Alterar
[ô] Inserir
Conexao.Execute([Ô]INSERT INTO taleba(campo1, campo2) VALUES ([ô]valor1[ô],[ô]Valor2[ô])[Ô])
[ô] Altrerar
Conexao.Execute([Ô]UPDATE tabela SET campo1=[ô]novovalor1[ô],campo2=[ô]novovalor2[ô][Ô] where campo0=[ô]0[ô][Ô])
[ô] Deletar
Conexao.Execute([Ô]DELETE FROM tabela WHERE campo0=[ô]0[ô][Ô])
entendeu como funciona agora é simples
feito a conexão vc poderá fazer tudo mais, veja como é fácil
no Load do form principal, vc conecta, se for uma conexão local vc pode conectar e desconectar a cada evento.
exemplo:
Conecta true
faz alguma coisa
Conecta False
para rede aconselho a fazer a conexão no load do form principal, e desconectar somente no unload do form principal.
a conexão está feita certo, agora vamos aos eventos.
vc pode fazer Assim
Para usar o SELECT
Dim RS As Recordset
sSQL = [Ô]SELECT * FROM tabela[Ô]
Set RS = Conexao.Execute(sSQL)
para Inserir, Deletar, Alterar
[ô] Inserir
Conexao.Execute([Ô]INSERT INTO taleba(campo1, campo2) VALUES ([ô]valor1[ô],[ô]Valor2[ô])[Ô])
[ô] Altrerar
Conexao.Execute([Ô]UPDATE tabela SET campo1=[ô]novovalor1[ô],campo2=[ô]novovalor2[ô][Ô] where campo0=[ô]0[ô][Ô])
[ô] Deletar
Conexao.Execute([Ô]DELETE FROM tabela WHERE campo0=[ô]0[ô][Ô])
entendeu como funciona agora é simples
Obrigada, Marcelo Treze... vou fazer o que me falou ;)
Tópico encerrado , respostas não são mais permitidas