CONECTAR VB6 AO BANCO MYSQL
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.
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.
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
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
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:
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[Ô]
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).
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?
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
certo...
só queria aprender pra que serve e as diferenças dessa configuracao abaixo:
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseServer
rs.LockType = adLockPessimistic
só queria aprender pra que serve e as diferenças dessa configuracao abaixo:
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseServer
rs.LockType = adLockPessimistic
leia isto
em um modulo
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
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
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:
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
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!!!!!
Tópico encerrado , respostas não são mais permitidas