Olá pessoal, estou tentando migrar para Mysql. Me disseram que é melhor que o Access. Já instalei a versão 4.1 e já criei um banco de dados com uma tabela.

Agora estou tentando abri-lo no VB. Alguém pode me ajudar?

 

Obrigado.

 

Olha....RMI,

 

Tem muitos sites que mostram exemplos...esse é um deles:

 

 

 

'olá

'Copia tudo num moule

Option Explicit
  
Public ConeXaoADO As ADODB.Connection
Public TB As Recordset ' para a tabela cadastro

Public mblnAddMode As Boolean
Public SQLConnect As String
    'esta é a string de conexao
    'devera conter a informacao sobre o provedor e o
    'caminho do banco de dados
   
  Public User As String     ' identificacao do usuario para o banco de dados
  Public Senha As String       ' a senha (se tiver) para o banco de dados
  Public IP As String    ' o endereco ip da maquina na qual esta o mySql
  Public BD As String          ' pega o nome do BD
 
Sub SU_Conecta()
   
    IP = "127.0.0.1"      ' a localizacao do usuario (localhost)
    User = "root"          ' identificacao usuario do Mysql
    Senha = "12345"     ' senha do usuario
    BD = "Nome_do_Banco_de_dados"

 
 'string de conexao por OLEDB tem que ter a DLL MyslqProv
 'strConnect = "Provider=MySqlProv.3.0;Data Source=" & BD & _
              ";Location=" & mySqlIP & _
              ";User ID=" & usr_id & _
              ";Password=" & pass & ";PORT=3307;OPTION=;STMT=;"

 

    ' string de conexao sem DSN, pega e intala o drive OBDC do mysql em www.mysql.com
    SQLConnect = "driver={MySQL};server=" & IP & ";uid=" & User & ";pwd=" & Senha & ";database=" & BD

    Set ConeXaoADO = New ADODB.Connection
    'preparando o objeto connection
    ConeXaoADO.CursorLocation = adUseClient
    'usamos um cursor do lado do cliente pois os dados
    'serao acessados na maquina do cliente e nao de um servidor
     ConeXaoADO.Open SQLConnect
    'Abreo o objeto connection
   
End Sub
Public Sub Abre_TB()
Dim SQL As String
      'abre só COM a tudo da tabela
       SQL = "SELECT * From TbCadastros" 
    
    'abre a tabela de cadastro
    Set TB = New ADODB.Recordset
        TB.Open SQL, ConeXaoADO, adOpenStatic, adLockOptimistic

End Sub
   

Pessoal 1º, obrigado pela ajuda.

 

Bom, eu realmente achei alguns sites sobre este assunto. O meu problema agora é a conexão ODBC, até agora não consegui criar uma nova conexão. Uso o Windows XP. Coloco os dados, como IP, usuário, e nada. Da sempre um erro falando que não existe o servidor ou não conseguir conectar. Já instalei o driver ODBC 3.51 que peguei no site www.mysql.com. Mas até agora nada!

Preciso saber como configurar a fonte de dados ODBC.

Se alguém puder me ajudar...

Obrigado.