Exemplo de conexao mysql usando modulo


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Exemplo de conexao mysql usando modulo

WALMIR

SERRANA
SP - BRASIL

ENUNCIADA !

Postada em 20/05/2010 23:58 hs

Ola a todos, por favor, gostaria de pedir a ajuda de todos, para postarem um exemplo simples de conexao vb6 ao mysql usando modulo.

Ficaria muito grato. obs, estou tentando uma conexao que nao ta dando certo.
Dim banco As New ADODB.Connection

banco.Open "DRIVER={MySQL ODBC 3.51 Driver};user=root;password=wa121234;server=localhost;option=20499"

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset

rs.Open "select *  from cadastro where cod = 2", banco, adOpenForwardOnly, adLockReadOnly
Set rs = Conexao.Execute(SQL)
If Not rs.EOF Then 'EOF é o fim do registro,
                                   'então se não chegar ao fim os dados existem
    Label1.Caption = rs!nome
Else 'caso contrário exibe a mensagem
    MsgBox "O Nome pesquisado não existe!"
End If
End Sub

Private Sub Form_Load()
Conecta True 'Abre a Conexão com o Banco de dados
End Sub

Private Sub Form_Unload(Cancel As Integer)
Conecta False 'Fecha a Conexão com o banco
End Sub

J.Carlos

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 21/05/2010 07:51 hs

Vi na net este exemplo de conexão:

Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=meuBanco;User=NomeUsuario;
Password=SenhaUsuario;Option=3;

Jesuel
não registrado

ENUNCIADA !

Postada em 03/06/2010 22:59 hs

Amigo, você instalou o drivers ODBC depende da versão do driver que você estiver usando.

Abaixo eu uso driver 5.1 é só baixar do site mysql

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public CONN As New ADODB.Connection
Public SERVIDOR, PORTA, USUARIO, SENHA, BASE As String

Function GetIni(setor As String, chave As String, warq As String) As String
Dim wval As String
Dim rr As Integer
    wval = String$(255, 0)
    rr = GetPrivateProfileString(setor, chave, "", wval, Len(wval), warq)
    GetIni = ""
    If rr <> 0 Then GetIni = Left(wval, InStr(wval, Chr(0)) - 1)
End Function

Sub Conexao_Conectar_Banco()

On Error GoTo Rotina_Erro

    SERVIDOR = GetIni("MySQL_Connect", "SERVIDOR", App.Path & "MySQL.ini")
    PORTA = GetIni("MySQL_Connect", "PORTA", App.Path & "MySQL.ini")
    USUARIO = GetIni("MySQL_Connect", "USUARIO", App.Path & "MySQL.ini")
    SENHA = GetIni("MySQL_Connect", "SENHA", App.Path & "MySQL.ini")
    BASE = GetIni("MySQL_Connect", "BASEDEDADOS", App.Path & "MySQL.ini")

        CONN.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & SERVIDOR & ";Port=" & 3306 & ";Database=" & BASE & ";User=" & USUARIO & ";Password=" & 2087 & ";Option=3;"

    Exit Sub
Rotina_Erro:

END SUB

Página(s): 1/1

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

VOLTAR