Comece a usar o MySQL como BD para suas aplicações

[Macêdo]

Baixe o MySQL 5.0 através do Link:

http://superdownloads.uol.com.br/download/181/mysql/

Para baixar o Driver ODBC 3.51 para conectar o MySQL click no link:

http://dev.mysql.com/get/Downloads/Connect...sline.de/mysql/

Depois de instalado o MySQL e o Driver ODBC 3.51 basta por num modulo:

Public cnn As New ADODB.Connection

e abrir a conexão assim:

Private Sub Form_Load()
cnn.CursorLocation = adUseClient
cnn.Open "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;user=root;pwd=Sua_senha;port=3306"
End Sub

` Para aprender a criar sua base de dados, Tabelas, campos etc ...e mais sobre o MySQL acesse o Link: http://www.apostilando.com/sessao.php?cod=26 Após criar seu primeiro Banco de Dados basta acrescentar na linha de código que abre a conexão o nome de seu BD antecedido da instrução "database=" assim:

Private Sub Form_Load()
cnn.CursorLocation = adUseClient
cnn.Open "DRIVER={MySQL ODBC 3.51 Driver};database=Meu_Banco;Server=localhost;user=root;pwd=Sua_senha;port=3306"
End Sub

Obs: existem interfaces graficas para trabalhar com o MySQL, porém acredito que quem saiba a linguagem SQL não terá problemas em criar suas Bases de Dados Pelo Prompt do (DOS)MySQL, foi a opção que achei melhor, realmente facil, mas pra quem não conhece ou está começando sugiro estudar um pouco sobre SQL. Se quiser criar a base de dados por sua aplicação VB aqui está um exemplo:

[c]Public Sub CriarBanco_e_Tabela()
On Error GoTo erro
'Instanciar
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
'---------------
'Criar BD ESTUDO
'---------------
con.Open "DRIVER={MySQL ODBC 3.51 Driver};User=root;Password=admin;Server=localhost;Option=20499"
'Banco 'Estudo'
con.Execute "CREATE DATABASE IF NOT EXISTS estudo;", , adExecuteNoRecords
con.Close
'--------------------
'Criar tabela CLIENTE
'--------------------
con.Open "DRIVER={MySQL ODBC 3.51 Driver};Database=estudo;User=root;Password=admin;Server=localhost;Option=20499"
'Tabela 'Cliente'
sSQL = "CREATE TABLE IF NOT EXISTS Cliente (" _
         & "Codigo int NOT NULL, " _
         & "Nome varchar(100) NOT NULL, " _
         & "Endereco varchar(100) NOT NULL, " _
         & "Nascimento date NOT NULL, " _
         & "PRIMARY KEY (Codigo) " _
         & ") Type=InnoDB"
con.Execute sSQL, , adExecuteNoRecords
con.Close
Exit Sub

erro:
    MsgBox Err.Description
End Sub

Bons estudos