MYSQL REMOTO

LEANDRO 22/10/2009 10:50:20
#326049
Bom Dia A Todos.

estou fazendo um novo projeto com conexao com o banco mysql em um provedor.

Dim Conexao As String
Dim DataBase As String
Dim Consulta As New rdoQuery
Dim Resultado As rdoResultset
Dim Coluna As rdoColumn
Dim conteudo_linha As String
Dim tabela As rdoTable
Dim existeTabela As Boolean

DataBase = [Ô]rumoinfo[Ô]
Conexao = [Ô]DRIVER={MySQL ODBC 3.51 Driver}; SERVER=[Ô] & txtServidor.Text & [Ô]; DATABASE=[Ô] & Trim(DataBase) & [Ô];PWD=[Ô] & txtSenha.Text & [Ô]; UID=[Ô] & txtUsuario.Text & [Ô];OPTION=3[Ô]
Set db = New rdoConnection
db.Connect = Conexao
db.CursorDriver = rdUseServer
db.EstablishConnection


existeTabela = False
For Each tabela In db.rdoTables
    existeTabela = True
Next
If Not existeTabela Then
    MsgBox [Ô]O banco de dados esta vazio.[Ô]
End If


Consulta.SQL = [Ô]SELECT * FROM 'usuario' WHERE 1[Ô]

Consulta.Execute
Set Resultado = Consulta.OpenResultset
While Not Resultado.EOF
For Each Coluna In Resultado.rdoColumns
       conteudo_linha = conteudo_linha & Coluna.Name & [Ô]=[Ô] & Resultado(Coluna.Name) & [Ô]; [Ô]
Next
Wend
End Sub


esta conectando normalmente, porem quando vou executar a linha que esta em negrito ele da um erro:

Citação:

the rdoQuery or rdoResultset has no active connection



ou seja nenhuma conexao ativa
GLAUCIO 22/10/2009 11:24:39
#326053
Bom, vc estabeleceu uma conexão com o banco. Só que em nenhum momento, você passa para o [ô]Consulta[ô] essa conexão estabelecida. Logo o [ô]Consulta[ô] não tem uma conexão ativa

Get it?
FLAVIOGUILHERME 22/10/2009 11:41:59
#326054
Tenta esse código amigo.

Public cnnRelGeral As ADODB.Connection
Public rs As ADODB.Recordset
Public SqlTabela As String

Public Sub Conecta()
Set cnn = New ADODB.Connection
cnn.Open [Ô]DRIVER={MySQL ODBC 3.51 Driver};server=IPDOSERVIDOR;Port=3306;uid=USUARIO;pwd=SENHA;database=BANCODEDADOS[Ô]
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = SqlTabela
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open
End Sub


[ô]SqlTabela= [Ô]SELECT * FROM 'usuario' WHERE 1[Ô]
[ô]Conecta
LEANDRO 22/10/2009 11:53:48
#326055
Obrigado a Todos.

Glaucio, como estabeleço a conexao para o consulta ?
LEANDRO 22/10/2009 14:55:00
#326075
?
Tópico encerrado , respostas não são mais permitidas
Voltar