Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Boca

Microsoft Cursor Engine error '80004005'

Recommended Posts

Estou com o seguinte erro em minha consulta!

Microsoft Cursor Engine error '80004005' Data provider or other service returned an E_FAIL status.

'Conexão com o banco de dados Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.XXX.XX.XXX;PORT=3306;DATABASE=meu_bco; USER=meu_user;PASSWORD=minha_senha;OPTION=3;"ObjConn.CursorLocation = 3 '<- Cursor de conexão ObjConn.Open '<- Abre a conexão '-----------------------------------------------------------Set rs = ObjConn.Execute ("SELECT * FROM produtos WHERE cod_categoria = '2'")While Not rs.EOFResponse.write  rs("cod_produto")Response.write  " - "Response.write  rs("codigo")Response.write  "<br>"      rs.MoveNextWendrs.CloseSet rs = Nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

não sei naumMas tira as aspas simples do 2 da instrução sql, e talvez no cursor use 3,3tenta-lá, sei naum!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou tendo este mesmo problema, mas meu banco de dados é o MSSQL 2000. Devo remover a linha com CursorLocation = 3

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou com o seguinte erro em minha consulta!

 

Microsoft Cursor Engine error '80004005'

 

Data provider or other service returned an E_FAIL status.

'Conexão com o banco de dados 
Set ObjConn = Server.CreateObject("ADODB.Connection") 
ObjConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.XXX.XX.XXX;PORT=3306;DATABASE=meu_bco; USER=meu_user;PASSWORD=minha_senha;OPTION=3;"
ObjConn.CursorLocation = 3 '<- Cursor de conexão 

ObjConn.Open '<- Abre a conexão 
'-----------------------------------------------------------

Set rs = ObjConn.Execute ("SELECT * FROM produtos WHERE cod_categoria = '2'")


While Not rs.EOF

Response.write  rs("cod_produto")
Response.write  " - "
Response.write  rs("codigo")
Response.write  "<br>"
      
rs.MoveNext
Wend

rs.Close
Set rs = Nothing

Olá tenho o mesmo problema e gostaria de saber qual é o nome do arquivo a ser alterado.

 

Muito obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

existe um topico , um guia sobre este erro, pode te ajudar

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.