Não entendi direito sua pergunta, mas vamos ver se é isto você gostaria de conectar o VB6 a um Banco de dados MySQL, seria isto?
bom se for então primeiro você precisa Baixar o MySQL 5.0 ou 5.1, e tambem baixar o ODBC Driver 3.51 no caso do Mysql 5.0 e o ODBC driver 5.1 no caso de ser o MySQL 5.1
feito isto no VB6 você vai em references / Microsoft ActiveX 2.X Object Library.
e Fara a conexão com a Seguinte String
coloque um módulo em seu projeto e cole o seguinte
Public Conexao As New ADODB.Connection
Public Function Conecta(ByVal Valor As Boolean)
Dim CON_STR As String
Dim SERVER As String
Dim USER As String
Dim SENHA As String
Dim PORTA As String
Dim BD As String
'verifica se a conexao está aberta e fecha para evitar erros
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If
If Valor = True Then
SERVER = "localhost"
BD = "nome_do_banco_de_dados"
PORTA = "3306"
USER = "root"
SENHA = "Senha_do_Banco"
CON_STR = "DRIVER={MySQL ODBC 3.51 DRIVER};" _
& "Server=" & SERVER & ";" _
& "Port=" & PORTA & ";" _
& "Database=" & BD & ";" _
& "UID=" & USER & ";" _
& "PWD=" & SENHA & ";" _
& "Option=3;"
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
Lembrando que a função acima eu criei para facilitar a conexão.
então vamos ao Proximo Passo.
* Como usar a função Conecta
No Load do Form Principal Coloque
Private Sub Form_Load()
Conecta True 'Abre a Conexão com o Banco de dados
End Sub
e No UnLoad coloque
Private Sub Form_Unload(Cancel As Integer)
Conecta False 'Fecha a Conexão com o banco
End Sub
Bom agora para Fazer consulta basta ser desta forma
alguns gostam de declarar os recordsets no módulo, porém particularmente prefiro declara-lo somente na funçao que irei usar, assim eu poupo trabalho de ficar criando varias recordset.
entào por exemplo se eu precisar fazer um botão de consulta seria assim
Private Sub BtnConsulta_Click()
Dim RS As RecordSet
Dim mSQL As String
mSQL = "Select * From Tabela Where idade = '" & txtCampo.Text & "'"
Set RS = Conexao.Execute(SQL)
Do While Not RS.EOF
ListResut.Additem RS!Nome& " - " & RS!Idade
RS.MoveNext
Loop
End Sub
Acima fiz uma consulta simples que exibe varios resultados em um listbox (ListResult) todos com uma idade X que determino do Textbox (txtCampo).
o resultado será este
João - 36
Pedro - 47
Joaquim - 28
agora se a consulta for retornar apenas um list box vc terá de faze-lo desta forma
Private Sub BtnConsulta_Click()
Dim RS As RecordSet
Dim mSQL As String
mSQL = "Select * From Tabela Where Nome = '" & txtCampo.Text & "'"
Set RS = Conexao.Execute(SQL)
If Not RS.EOF Then 'EOF é o fim do registro,
'então se não chegar ao fim os dados existem
lblNome.Caption = RS!Nome
lblIdade.Caption = RS!Idade
Else 'caso contrário exibe a mensagem
Msgbox "O Nome pesquisado não existe!"
End If
End Sub
Ensinei a consultar agora vou explicar como alterar inserir e excluir
Primeiro como incluir dados no Bnaco
Para incluir dados no banco não há necessidade de se declarar um recordset isto pode ser feito diretamente.
ex:
Conexao.Execute ("Insert Into tabela (campo1,campo2,campo3) values ('valor1', 'valor2', 'valor3')")
para alteracao
Conexao.Execute ("Update Tabela Set Campo1 = 'novovalor1', Campo2 = 'Novovalor2', campo3 = 'novovalor3' Where Campo1 = 'valorantigo1'")
e pro fim para exclusão
Conexao.Execute ("Delete From tabela Where Campo1='indice_a_ser_excluido'")
e pronto vc já pode começara programar vb6 com MySQL
até
