SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/03/2012 15:25 hs
OLÁ PESSOAL, ESTOU COMEÇANDO A APRENDER MYSQL E GOSTARIA DE USAR O MYSQL NO LUGAR DO ACCESS. COMO FAÇO PARA CONECTAR COM O BANCO MYSQL. TEM COMO VOCÊS ME MOSTRAR UM PASSO A PASSO. UM ABRAÇO A TODOS. SRICK |
|
|
|
|
|
comendador
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/03/2012 10:47 hs
fala sargento a quanto tempo heim, vou fazer a conexão e te passo, mais já fique ciente que vc tera que modificar o ODBC.
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/03/2012 17:49 hs
OK, COMENDADOR, OBRIGADO, ESTOU NO QAP.
|
|
|
|
|
|
Postada em 14/03/2012 14:03 hs
Via conector!
http://www.mysql.com/downloads/connector/net/ - link para baixar o conector .NET framework
coloque o
Imports MySql.Data.MySqlClient
antes da classe do formulário.
no botão
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim SQL As String = "Select * from *** where campo1=@campo1"
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
conn.conectionstring="server=" & My.Settings.mysql_server & ";user id=" & My.Settings.mysql_user & ";password=" & My.Settings.mysql_senha & ";database=" & My.Settings.mysql_bancodedados
myCommand.Connection = conn
myCommand.CommandText = SQL
myCommand.Parameters.AddWithValue("@idd", TextBox1.Text)
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
If myData.Rows.Count = 0 Then
end if
'para popular um datagridview
datagridview1.datasource = mydata
conn.close
espero ter ajudado.
Obrigado
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/03/2012 20:55 hs
Olá Mamonalta, obrigado, só que trabalho com VB6, não sei trabalhar com o .nt, acho muito difícil, é muito diferente do VB6. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2012 10:15 hs
Eae Henrique beleza, quanto tempo.
O que o colega quiz dizer é que vc deve baixar o driver ODBC, isso conforme a versão do MySQL que vc instalou, ou seja se vc instalou o MySQL 5.1, vc baixa o driver 5.1.
seria este link: http://dev.mysql.com/downloads/connector/odbc/
a conexão vc usa esta em um módulo
Public Conexao As New ADODB.Connection
Public Function Conecta(ByVal Valor As Boolean)
Dim CON_STR As String
Dim SERVER As String
Dim USER As String
Dim SENHA As String
Dim PORTA As String
Dim BD As String
'verifica se a conexao está aberta e fecha para evitar erros
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If
If Valor = True Then
SERVER = "localhost"
BD = "nomedoseubanco"
PORTA = "3306"
USER = "root"
SENHA = "suasenha"
CON_STR = "DRIVER={MySQL ODBC 5.1 DRIVER};" _
& "Server=" & SERVER & ";" _
& "Port=" & PORTA & ";" _
& "Database=" & BD & ";" _
& "UID=" & USER & ";" _
& "PWD=" & SENHA & ";" _
& "Option=3;"
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
no load do form principal
Conecta True
e no unload do form principal
Conecta False
as regras para consulta, inclusão e exclusão, mudam um pouco referente ao ACCESS
no access vc usava a data neste formato #mm/dd/yyyy#
no mysql todos dados serão entre aspas simples (') e o formato da data é: 'YYYY-MM-DD'
no access vc pesquisava, incluía e excluía numero sem usar aspas assim
select * from tabela where id = 1
no MySQL como eu disse anteriormente, vc deverá usar aspas simples
select * from tabela where id ='1'
de resto é tudo como vc aprendeu sobre o ADO.
abraço
|
|
|
|
