Referencias: MyOdbc e Ado 2.8
Private Sub ConectarMysql()
On Error GoTo trata_erro
'***Definindo as strings de conexão:
Dim sNomeUsuario As String
Dim sPassword As String
Dim sBancoDados As String
Dim sHost As String
'***Atribuindo valores às strings de conexão:
sNomeUsuario = "root"
sPassword = "suasenha"
sBancoDados = "nomebancodados"
sHost = "localhost"
'***-------------------------------------------------------------
Me.MousePointer = vbHourglass
Set gConexao = New ADODB.Connection
gConexao.ConnectionTimeout = 60
gConexao.CommandTimeout = 400
gConexao.CursorLocation = adUseClient
gConexao.Open "DRIVER={MySQL ODBC 3.51 Driver};" _
& "user=" & sNomeUsuario _
& ";password=" & sPassword _
& ";database=" & sBancoDados _
& ";server=" & sHost _
& ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
Me.MousePointer = vbNormal
If gConexao.State = 1 Then
SaveSetting App.Title, "Settings", "sHost", sHost
SaveSetting App.Title, "Settings", "sNomeUsuario", sNomeUsuario
SaveSetting App.Title, "Settings", "sBancoDados", sBancoDados
'MsgBox "Conecção efetuada com sucesso!!"
Else
MsgBox "Não foi possível estabelecer a conexão. Verifique as configurações e tente novamente.", vbCritical, "Erro durante a conexão..."
End If
Exit Sub
trata_erro: MsgBox Err.Number & " " & Err.Description, vbCritical, "Erro durante a conexão..."
End Sub
'Abrindo a conexão com BdMySql...
SQL = "Select Comp, Cpf, Nome, CodRubrica, Total, BaseInss FROM tblbase"
pRs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText
'Limpando a tabela de destino...
SQL = "DELETE FROM tblbase"
gConexao.Execute SQL
Com relação a data, no mysql é bem parecido com o access. As diferencas sao as seguintes (Access => 01/12/1999) (MySql =>1999/12/01)
