BD - MYSQL
Beleza galera?
Ultilizo em meus programas o access via DAO. Gostaria de Saber o que mudaria
para migrar para o Mysql ?. Será que é apenas a string de conexão ?, Como seria essa string ? Usarei o DAO inves de ADO ? . Por favor me respondam com exemplos ....
Valeu Galera......
Edilson Junior
eblju@ig.com.br
Ultilizo em meus programas o access via DAO. Gostaria de Saber o que mudaria
para migrar para o Mysql ?. Será que é apenas a string de conexão ?, Como seria essa string ? Usarei o DAO inves de ADO ? . Por favor me respondam com exemplos ....
Valeu Galera......
Edilson Junior
eblju@ig.com.br
Olha EDILSON BRANDAO vc tem um problemão ai.
Primeiro o DAO não se conecta com base de dados tipo MySql, SQLServer, MSDE ORACLE entre outros vc teria que mudar totalmente seu código fonte Vou dar um exemplo para vc aqui
Uma conexão simples que vc usaria com DAO
dim db a database
dim rs as recordset
set db.opendatabase(app.path & "\banco.mdb",false, false)
set rs = db.openrecordset("tabela")
Inserindo dados com essa conexão DAO
rs.addnew
rs!Codigo = txtCodigo.text
rs!Nome = txtNome.text
rs.update
rs.close
db.close
Agora uma conexao simples em ADO com MySql, lembrando que essa conexao é simples pois vc pode deixar ela muito melhor qualquer coisa te passo por e-mail umas dicas djdigao@uol.com.br
dim db As New ADODB.Connection
dim rs As New ADODB.Recordset
strConn = "DRIVER={MySQL ODBC 3.51 Driver};"
strConn = strConn & "SERVER="127.0.0.1;"
strConn = strConn & "DATABASE=banco de dados;"
strConn = strConn & "UID=usuario;PWD=senha; OPTION=3"
db.ConnectionString = strConn
db.CursorLocation = adUseClient
db.Open
Onde "SERVER" é o local onde vc informa o servidor onde esta instalado o MySql se ele estivesse instalado em uma máquina remota vc colocaria o IP dessa máquina Exemplo SERVER=200.145.201.10
DATABASE é o nome do banco de dados criado dentro do MySql
UID é o nome de usuário que vc atribuiu a MySql geralmente se usa o usuário root
PWD é onde vc coloca a senha do banco de dados
db.ConnectionString é o local onde vc coloca a String de Conexao
db.CursorLocation = adUseClient é para posicionar o curso para a máquina cliente assim vc não vai ter muito problemas quando usar o SELECT em uma tabela
db.Open - para abrir a conexao
Inserindo dados com o ADO com a conexao acima
Para vc inserir os dados vc não precisa mais usar o AddNew do ObjRecodset vc vai usar uma string em SQL para isso assim
db.Execute "INSERT INTO clientes(Codigo, Nome) VALUES(' " & txtCodigo.Text & " ', '" & txtNome.Text & " ' )"
Já para fazer uma consulta vc teria que usar o RecordSet Criado acima o rs da seguinte forma
set rs.open "SELECT * FROM clientes ", db Onde " ,db informa a conexao sua com o banco "
Blz espero ter ajudado, e relembro isso é muito simples pode se fazer muito melhor OK Abraços
Primeiro o DAO não se conecta com base de dados tipo MySql, SQLServer, MSDE ORACLE entre outros vc teria que mudar totalmente seu código fonte Vou dar um exemplo para vc aqui
Uma conexão simples que vc usaria com DAO
dim db a database
dim rs as recordset
set db.opendatabase(app.path & "\banco.mdb",false, false)
set rs = db.openrecordset("tabela")
Inserindo dados com essa conexão DAO
rs.addnew
rs!Codigo = txtCodigo.text
rs!Nome = txtNome.text
rs.update
rs.close
db.close
Agora uma conexao simples em ADO com MySql, lembrando que essa conexao é simples pois vc pode deixar ela muito melhor qualquer coisa te passo por e-mail umas dicas djdigao@uol.com.br
dim db As New ADODB.Connection
dim rs As New ADODB.Recordset
strConn = "DRIVER={MySQL ODBC 3.51 Driver};"
strConn = strConn & "SERVER="127.0.0.1;"
strConn = strConn & "DATABASE=banco de dados;"
strConn = strConn & "UID=usuario;PWD=senha; OPTION=3"
db.ConnectionString = strConn
db.CursorLocation = adUseClient
db.Open
Onde "SERVER" é o local onde vc informa o servidor onde esta instalado o MySql se ele estivesse instalado em uma máquina remota vc colocaria o IP dessa máquina Exemplo SERVER=200.145.201.10
DATABASE é o nome do banco de dados criado dentro do MySql
UID é o nome de usuário que vc atribuiu a MySql geralmente se usa o usuário root
PWD é onde vc coloca a senha do banco de dados
db.ConnectionString é o local onde vc coloca a String de Conexao
db.CursorLocation = adUseClient é para posicionar o curso para a máquina cliente assim vc não vai ter muito problemas quando usar o SELECT em uma tabela
db.Open - para abrir a conexao
Inserindo dados com o ADO com a conexao acima
Para vc inserir os dados vc não precisa mais usar o AddNew do ObjRecodset vc vai usar uma string em SQL para isso assim
db.Execute "INSERT INTO clientes(Codigo, Nome) VALUES(' " & txtCodigo.Text & " ', '" & txtNome.Text & " ' )"
Já para fazer uma consulta vc teria que usar o RecordSet Criado acima o rs da seguinte forma
set rs.open "SELECT * FROM clientes ", db Onde " ,db informa a conexao sua com o banco "
Blz espero ter ajudado, e relembro isso é muito simples pode se fazer muito melhor OK Abraços
Tópico encerrado , respostas não são mais permitidas