2 replies to this topic

[kaplan]

Salve gente blz bom eu fiz um select q traz todos os cheques pra mim e crie um variavel aonde ira armezenar todos os id de cheques nele, ele funcionou em um site que eu ja fiz, quando eu fui pegar a mesma função e usar em outro site e começou a apareçer este erro

Erro de tempo de execução do Microsoft VBScript erro '800a01ca'
A variável usa um tipo de automação sem suporte no VBScript

O pior é q esta dando o ero na If id_cheque = "" Then.
ae eu deixei assim: If CInt(id_cheque) = "" Then e começou a dar erro nesta linha e nao consegui arrumar:
Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")

o que podera ser heim???

While Not RsIdCheque.EOF

If Id_cheque = "" Then ' - Erro aki
Id_cheque = RsIdCheque("id_cheque")
Else
Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")
End If
RsIdCheque.MoveNext
Wend

[MarcioMBL]

veio o que acontece ai depende de ver cmo vc montou a sua conexão e como vc está colocando isto tudo ai, e qual banco de dados vc está usando SQLserver, MySQL ou access.
da uma luz ai melhor...posta a fonte do erro que é a sua conexao com o banco de dados e o fim de sua estrução ai...deste jeito ai fica bem dificil te ajudar.

forte abraço

[kaplan]

realmente o pane era outro cara, ja deu certo aki
brigadu