RS.Open gera um Erro fatal no VB Uregente PorFavor


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: RS.Open gera um Erro fatal no VB Uregente PorFavor

Diogo
não registrado

Postada em 31/01/2006 07:33 hs

bom dia

colegas ja quebrei a cabeca e ate agora nada

to usando mysql 5 com vb6 sp5

a open da conexao ele faz numa boa mas na open do recordset ele gera um erro fatal no vb ! diz q ira criar um log de erro mas eu nao acho esse log !

to usando odbc e ta tudo configurado pois a conexao ele faz numa boa so da erro na open do recordset

Con.ConnectionString = "dsn=myodbc;uid=root;pwd=123;database=mysql"
Con.Open

Sql = "select * from user"
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
MsgBox "S"
Rs.Open Sql, Con, adOpenDynamic, adLockOptimistic
MsgBox Rs!user

ja perdi muito tempo com isso ! pois to mudando meus projetos de access pra mysql pois os bancos estao quase no limite pra access

por favor alguem q trabalhe com mysql por favor me ajude...

desde ja agradeco

diogo

Alexandre C.G

PATOS DE MINAS
MG - BRASIL

Postada em 31/01/2006 12:19 hs

como vc esta declarando a variavel rs e a con

e pelo que vi na sua string de conexao nao vi o nome do banco.

coloque mais detalhes para sabermos o que esta acontecendo

vc adicionou a referencia do ado .?

Diogo
não registrado

Postada em 31/01/2006 13:51 hs

boa tarde

obrigado pela resposta

elas são publicas declaradas da seguinte forma

Dim Rs As New ADODB.Recordset
Dim Con As New ADODB.Connection

tem a referencia do ado sim

usei o proprio banco mysql pra testar pois pensei q o erro poderia ser por causa q estava tentando usar um banco q tinha importadado do access

grato

diogo

Alexandre C.G

PATOS DE MINAS
MG - BRASIL

Postada em 01/02/2006 12:39 hs

diogo, faz assim:

Dim Con As ADODB.Connection

set con = new adodb.connection

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 01/02/2006 13:23 hs

O Tipo de erro que vc disse q acontece tem muito mais a ver com o Windows q com seu programa... tenta rodar em outro computador, outro ambiente, e verifique se o mesmo erro ocorre...

Tenta tambem reconstruir o DSN... pode ser q tenha configurado alguma coisa errada...

Inclue tambem um ErrorHandle na rotina para emcapsular a instrução Conn.Open, e trata o erro, pra ter uma descricao mais detalhada da mensagem e dos parametros que o windows dá sobre o erro...

Se o erro tiver uma descricao, posta ela aki pra gente ver...

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Diogo
não registrado

Postada em 01/02/2006 19:07 hs

agradeço pelas resposta

o dsn esta legal, pelo proprio teste do dsn ele da messagem de sucesso e o con.open nao da erro mas sim no rs.open q da o erro.

realmente tenho q testar em outro pc para desencargo de conciencia e estou pra fazer isso, pois realmente o problema deve ser em meu pc mas preciso resolver isso no meu pc pois é nele q trabalho.

inseri o on error mas a mensagem continua sendo a mesma
"vb6.exe gerou erros e sera fechado pelo windows. voce precisara reiniciar o programa"
"Um log de erro esta sendo criado "
mas nao sei onde ele cria esse log de erro !

criei um projeto em branco pra testar isso e tentar resolver, ele esta assim
Private Sub Form_Load()
On Error GoTo erro
Dim Con As adodb.Connection
Dim Rs As adodb.Recordset
Set Con = New adodb.Connection
Con.ConnectionString = "dsn=myodbc;uid=root;pwd=123;database=mysql"
Con.Open
Sql = "select * from user"
Set Rs = New adodb.Recordset
Rs.CursorLocation = adUseClient
MsgBox "S"
Rs.Open Sql, Con, adOpenDynamic, adLockOptimistic
MsgBox Rs!user
Exit Sub
erro:
MsgBox Err & " " & Error
End Sub

por favor me ajudem e ja sou muito grato pela atencao de vcs

Página(s): 1/1

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

VOLTAR