LuizCaal

Ola a todos, Quero acessar a tab mysql pelo excel via codigo vba, já consegui pelo menos me conectar ao banco porem preciso incluir, alterar, excluir e tudo mais, se possivel queria o passos para tal. Vejam o código : Private Sub TESTE() Dim strConnect As String Dim strProvider As String Dim strDataSource As String Dim strDataBaseName As String Dim usr_id As String ' identificacao do usuario para o banco de dados Dim pass As String ' a senha (se tiver) para o banco de dados Dim mySqlIP As String ' o endereco ip da maquina na qual esta o mySql mySqlIP = "localhost" 'a localizacao do usuario (localhost) usr_id = "Root" 'identificacao" pass = "" ' senha strConnect = "driver={MySql odbc 3.51 driver};server=" & mySqlIP & ";uid=" & usr_id & ";pwd=" & pass & ";database=test" Set adoDataConn = New ADODB.Connection adoDataConn.Open strConnect adoDataConn.CursorLocation = adUseClient Set rsmysql = New ADODB.Recordset rsmysql.CursorType = adOpenStatic rsmysql.CursorLocation = adUseClient rsmysql.LockType = adLockPessimistic rsmysql.Source = "Select * From pet" 'altere para tabela que desejar rsmysql.ActiveConnection = adoDataConn rsmysql.Open MsgBox (rsmysql("nome")) rsmysql.Close End Sub Desde já agradeço. Luiz Alberto.