Recordset

[m_sam 0]

Olá,Estou com um problema:

<% @LANGUAGE=VBSCRIPT %><%	Set conexao = Server.CreateObject("ADODB.Connection")	conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("escola.mdb")&";"		Set objrs = Server.CreateObject ("ADODB.Recordset")			  SQL = "select * from aluno WHERE matr = '" & REQUEST.form("matr") & "'"			  objrs = CONEXAO.EXECUTE (SQL)  	matr 	=  REQUEST.form("matr") 	campo 	=  request.form("altera")	reg	=  request.form("reg")		matrbd 	=  objrs("matr")			'-14-----------------------------------------------------------------------do while not objrs.eof		IF matr = matrbd then		existe = 1		exit do	else		objrs.movenext	end if	if objrs.eof then		existe = 0		exit do	end ifloop		if existe = 0 then	response.write("nao existe")	response.endend if

Essa é apenas uma parte do código, que faz um loop pelo BD para verificar se um registro existe.Esse código resulta no seguinte erro:

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01B6)O objeto não dá suporte para a propriedade ou método: 'objrs.eof'/esco5/r_alteracao.asp, line 15

O quê poderia ser isso?Desculpem a ignorância http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif Abraços

[Shison 0]

Olá,

parece que seu erro fica por conta da seguinte linha:

objrs = CONEXAO.EXECUTE (SQL)

No caso este comando "conexao.execute" é utilizado para consultas que não retornam resultado, como updates, inserts e deletes.

Para executar um select utilize o método "open" do RecordSet.

Ex:

objrs.open SQL, CONEXAO

 

sendo que mesmo que o método "execute" do objeto de conexão retornasse o recordSet com os resultados, você ainda teria um erro,

pois você não está utilizando o comando "set", que é obrigatório na hora de se definir a referência de um objeto a uma variável.

[m_sam 0]

Opa, é verdade... obrigado ;) Abraços