Ajuda com MySql


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Ajuda com MySql

Teugulha

RIO DAS OSTRAS
RJ - BRASIL

Postada em 06/04/2009 10:39 hs

Ola Pessoal, estou precisando conectar o Visual Basic 6 ao banco de dados MySql local, mas não estou conseguindo, estou usando este tutorial http://www.macoratti.net/mysqlvb2.htm, mas sempre que eu executo o programa ele trava e para de responder... alguem sabe porque?

Treze

SÃO VICENTE
SP - BRASIL

Postada em 06/04/2009 15:11 hs

Primeiramente colega você deverá instalar o MySQL ODBC driver 3.51 neste link

http://dev.mysql.com/downloads/connector/odbc/3.51.html

depois sim basta usar o exemplo do macoratti.

se não conseguir, poste informando que darei outro exmplo básico de como utilizar o MySQL.

Teugulha

RIO DAS OSTRAS
RJ - BRASIL

Postada em 06/04/2009 18:10 hs

Ola amigo, eu ja tinha instalado o driver ODBC.

Treze
não registrado

Postada em 06/04/2009 18:33 hs

qual a string de conexão está usando?

poste o seu código

Teugulha

RIO DAS OSTRAS
RJ - BRASIL

Postada em 08/04/2009 20:43 hs

Na verdade eu ja tentei varias, mas a que era pra funcionar é:

Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=DB;User=root;Password=;Option=3;

Treze
não registrado

Postada em 12/04/2009 15:56 hs

BD = "bd"
PORTA = "3306"
USER = "seunomedeusuario"
SENHA = "suasenha"
CON_STR = "DRIVER={MySQL ODBC 3.51 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

feito isto basta colocar o seguinte noi load do form Principal

Private Sub Form_Load()

Conecta True

End Sub

e no Unload

Private Sub Form_Unload(Cancel As Integer)
Conecta False
End Sub

pronto agora em qualquer evento você pode fazer sua consulta

eu utilizo desta forma

para consulta

SQL = "SELECT * FROM tabela WHERE campo = '" & critério & "'"

Set RS = Conexao.Execute(SQL)

Text1.Text = RS!Nome

para inserir excluir e alterar é assim

'inserir

Conexao.Execute("INSERT INTO tabela (campo1,campo2) VALUES ('valor1','valor2')")

'Alterar

Conexao.Execute("UPDATE tabela SET campo1 = 'novovalor1', campo2 = 'novovalor2' WHERE campo1 = 'Critério'")

e assi vai faça o teste

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR