Eis minha conexão completa
primeiro faço referência a Microsoft ActiveX Data Object 2.8 Library
' no módulo
Dim USER As String
Dim SENHA As String
Dim PORTA As String
Dim BD As String
Public CON As ADODB.Connection
Public RS As ADODB.Recordset
Public Sub AbriConexao()
Dim CON_STR As String
Set CON=New Connection
BD="nome do danco de dados"
PORTA="3306"
USER="root"
SENHA="sua senha"
CON_STR="DRIVER={MySQL ODBC 3.51 DRIVER};" _
& "Port=" & PORTA & ";" _
& "Datbase=" & BD & ";" _
& "UID=" & USER & ";" _
& "PWD=" & Senha
With CON
.Cursorlocation=adUseCliente
.ConnectionString=CON_STR
.Open CON_STR
End Wtih
End Sub
' Esta é a forma que me conecto
' agora como faço para inserir novos Dados
' neste exemplo estou supondo que exista uma tabela com os seguintes Campos:
' ( NOME, NASC, SEXO)
Public Function Inserir (ByVal Nome As String, Nasc As String, Sexo As String) _
As Variant
CON.Execute ("INSERT INTO Cadastro (Nome, Nasc, Sexo)" _
& " Values('" & Nome & "','" & Nasc & "','" & Sexo & "')")
Inserir=True
End Function
' No Form
' Código do botão incluir
Private Sub BtnIncluir_Click()
Dim Novo As Variant
Novo=Inserir (Txtnome.text,Txtnasc.text,CmbSexo.text)
end sub
este foi apenas um pequeno auxilio espero que a partir dai você se encontre.
um abraço
até
