Vba E Mysql

[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.

[Bicicleta]

Mano, não cheguei a testar, mais como o Excel usa VbScript tenta assim:

Private Sub TESTE()
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  ' Abre a Conexão com o BD
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  Set Conexao = New ADODB.Connection
  adoDataConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=127.0.0.1;DATABASE=test;UID=root;PWD=;"
  Conexao.Open

  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  ' Para selecionar um registro:
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  Set rs = Conexao.Execute("SELECT campo FROM tabela WHERE id = 1")
  MsgBox( rs("campo") )
  rs.Close
  Set rs = Nothing

  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  ' Para inserir um registro:
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  Conexao.Execute("INSERT INTO tabela (campo, campo2) VALUES ('Valor do Campo', 'Valor do Campo 2')

  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  ' Para atualizar um registro:
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  Conexao.Execute("UPDATE tabela SET campo = 'Novo valor do campo', campo2 = 'Novo valor do campo 2' WHERE id = 1)

  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  ' Para excluir um registro
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  Conexao.Execute("DELETE FROM tabela SET id = 1")

  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  ' Fechando a conexão com o BD
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  Conexao.Close
  Set Conexao = Nothing
End Sub

[]s