CONECTAR VB6 AO BANCO MYSQL

MICHAELL 25/04/2011 16:59:00
#372392
Olá pessoal...
qual é a melhor e mais segura forma de se conectar vb6 ao mysql ?

pesquisei, porem existe muitas formas diferentes. Quero poder conectar ao um banco de dados local ou via internet.
JANDER 25/04/2011 17:21:20
#372394
Public Function ConectarBancoOnLine()

Set connOnLine = New ADODB.Connection
connOnLine.Open [Ô]File Name=[Ô] & App.Path + [Ô]\bancoOnline.UDL[Ô]

End Function


vai no bloco de notas e cole isso

[oledb]
; Everything after this line is an OLE DB initstring
Provider=MSDASQL.1;Password=senha;Persist Security Info=True;User ID=usuário;Extended Properties=[Ô]DRIVER={MySQL ODBC 5.1 Driver}; SERVER=192.168.254.17; DATABASE=basededados;[Ô]

salve com a extenção .udl
HIDDEN 25/04/2011 21:00:38
#372401
Você precisará de um driver ODBC. Baixe um no site do MySQL: http://dev.mysql.com/downloads/connector/odbc/. Tem a opção com instalador e opção zipada. Como você está inciando, baixe a versão com instalador e instale o driver no seu sistema.

Uma vez instalado, use a seguinte string de conexão:

gb_ConnString = [Ô]Driver=MySQL ODBC 5.1 Driver;server=192.168.254.254;uid=root;pwd=senha;database=mydatabase;port=3306[Ô]
HIDDEN 25/04/2011 21:02:14
#372402
Note que o parâmetro [Ô]Server[Ô] pode ser tanto o IP de uma máquina em sua rede (um servidor de banco de dados, por exemplo), como o IP de um servidor remoto (desde que liberada a porta 3306).
MICHAELL 26/04/2011 00:01:10
#372419
ok.. obrigado amigos..
consegui da seguinte forma..

mas sera que seria assim mesmo? Devo conectar e desconectar do banco de dados sempre que fizer alteracoes?


  

Function Conecta() As Boolean
    bd.Open [Ô]Driver={MySQL ODBC 5.1 Driver};Server=servidor;Database=banco;uid=usuario;pwd=senha[Ô]
   
    rs.CursorType = adOpenStatic
    
    rs.CursorLocation = adUseServer
    
    rs.LockType = adLockPessimistic
 
End Function

Private Sub FechaConexao()

    rs.Close
    bd.Close
    
End Sub

Private Sub CarregaGrid()
    Conecta
    rs.Open [Ô]select * from tbl_contatos[Ô], bd, adOpenForwardOnly, adLockOptimistic
   
    rs.AddNew
       rs!nome = txtNome
       rs!email = txtEmail
    rs.Update
    
    FechaConexao

end sub
MICHAELL 26/04/2011 01:50:19
#372423
certo...

só queria aprender pra que serve e as diferenças dessa configuracao abaixo:

rs.CursorType = adOpenStatic

rs.CursorLocation = adUseServer

rs.LockType = adLockPessimistic
MARCELO.TREZE 26/04/2011 09:50:20
#372449 Resposta escolhida
leia isto
XXXANGELSXXX 26/04/2011 09:57:33
#372451
em um modulo
  
Public Conexao As ADODB.Connection

Public Function Conecta(ByVal Valor As Boolean)
    On Error GoTo ErrorLine
    If Valor = True Then
        Set Conexao = New Connection
        SERVIDOR = [Ô][Ô] & [Ô]mysql.nomeempresa.com.br[Ô]
        BASEDEDADOS = [Ô][Ô] & [Ô]nomebasededados
        PORTA = [Ô][Ô] & [Ô]3306[Ô]
        USUARIO = [Ô][Ô] & [Ô]usuariodobanco[Ô]
        SENHA = [Ô][Ô] & [Ô]senhadobanco[Ô]
        CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
                & [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
                & [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
                & [Ô]Database=[Ô] & BASEDEDADOS & [Ô];[Ô] _
                & [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
                & [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
                & [Ô]ConnectionTimeout=60[Ô] & [Ô];[Ô] _
                & [Ô]OPTION=[Ô] & 1 + 2 + 8 + 32 + 2048 + 16384
        With Conexao
            .CursorLocation = adUseClient
            .ConnectionString = CON_STR
            .Open CON_STR

        End With
    Else
        Conecta True
        If Conexao.State = 1 Then Conexao.Close
        Set Conexao = Nothing
    End If
    Exit Function
ErrorLine:
    MsgError
End Function


Para se conectar utilize

CONECTA TRUE

e para desconectar

CONECTA FALSE

Utilizando uma query

CONECTA TRUE
Set rs = New ADODB.Recordset
rs.Open [Ô]SELECT campo1,campo2 from tabela, Conexao, adOpenStatic, adLockBatchOptimistic

[ô]Referência a Microsoft ActiveX 2.8 Object Library
MICHAELL 26/04/2011 15:35:28
#372503
uma duvida...estou fazendo uma funcao para conectar e consultar no banco de dados

poderia utilizar 2 tipos de cursor padrao.. um para leitura e outro para gravacao... correto ou errado?

exemplo:

  If tipo = [Ô]leitura[Ô] Then
        rs.CursorType = adOpenForwardOnly
        rs.LockType = adLockReadOnly
    
    ElseIf tipo = [Ô]gravacao[Ô] Then
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockPessimistic
    
    End If
CLARE 28/04/2011 17:25:15
#372721
meu Deus... quanta informação... estou com o mesmo problema... conectar mysql com vb6.... fiz pelo ODBC... porém ele apenas consulta o que está gravado no banco... queria saber como posso inserir dados pelo vb6, gravando no mysql... vi tantos exemplos que pirei... tenho o botão inserir... por favor me ajudem!!!!!
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar