ERRO LEITURA MYSQL
Não estou conseguindo ler os dados em meu banco de dados mysql.
Consigo gravar normalmente, somente a leitura é que apresenta problema.
O usuario possui todos os privilégios.
Ele não encontra os dados e informa o erro:
Segue o código que estou usando.
Desda já, obrigado a todos.
Consigo gravar normalmente, somente a leitura é que apresenta problema.
O usuario possui todos os privilégios.
Erro: -2147467259
O provedor de dados ou outro serviço retornou um status E_FAIL.
Ele não encontra os dados e informa o erro:
Private Sub CarregarTela()
Set MyRs = New ADODB.Recordset
StrSql = [Ô]select * from players order by name[Ô]
MyRs.Open StrSql, Conexao, adOpenStatic, adLockReadOnly
If MyRs.RecordCount > 0 Then
LblId.Caption = [Ô][Ô] & MyRs!id
Text1.Text = [Ô][Ô] & MyRs!Name
Text2.Text = [Ô][Ô] & MyRs!email
Text3.Text = [Ô][Ô] & MyRs!pass
End If
MyRs.Close
Set MyRs = Nothing
End Sub
Segue o código que estou usando.
Desda já, obrigado a todos.
Tem que abri o Banco.
No load do From você colocar
[txt-color=#e80000]Call CarregarTela,[/txt-color]
No load do From você colocar
[txt-color=#e80000]Call CarregarTela,[/txt-color]
Omar, antes da busca já conecto banco, tanto que consigo inserir dados.
Vixi ADODB NÃOOOOOO! rsrsrsrs
Utilize o Connector/NET que você baixa do próprio site do mysql. Não é merxan! rsrsrs. é porque funciona mesmo. sem falar na praticidade de um FREE!
a uns dias atrás isso resolveu a vida de um colega daqui do forum.
dá uma olhada:
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446767&pagina=1
Utilize o Connector/NET que você baixa do próprio site do mysql. Não é merxan! rsrsrs. é porque funciona mesmo. sem falar na praticidade de um FREE!
a uns dias atrás isso resolveu a vida de um colega daqui do forum.
dá uma olhada:
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446767&pagina=1
Isto e o Load do Form.
Private Sub Form_Load()
Call CarregarTela
End Sub
Da erro.
Veja isto
Private Sub Form_Load()
Conecta (1)
Call CarregarTela
End Sub
Teste deste jeito.
Private Sub Form_Load()
Call CarregarTela
End Sub
Da erro.
Veja isto
Private Sub Form_Load()
Conecta (1)
Call CarregarTela
End Sub
Teste deste jeito.
Tópico encerrado , respostas não são mais permitidas