4 replies to this topic

[ifnick]

Ae... blz?

Tenho uma função que lê os dados de um arquivo em excel e nesta função há a seguinte linha:

...

Set rstXLS = Server.CreateObject("ADODB.Recordset")
rstXLS.Open "SELECT * FROM modelo",cnnXLS,adOpenStatic,adLockPessimistic

...

Como posso realizar um teste para verificar se este objeto é verdadeiro (irá funcionar)?

Pois, caso haja algum problema, ele retorna uma mensagem de erro e toda a página em que há esta função, fica travada.

Como posso verificar este objeto para que não retorne este erro e não trave a página?

Ja tentei utilizar o On Error Resume Next e não funcionou.

Grato.

[Luis Otávio]

tente assim

on error resume next
Set rstXLS = Server.CreateObject("ADODB.Recordset")

if Err <> 0 then
response.write "grrr deu erro"
response.end
end if

[ifnick]

Luis Otávio,

Tentei utilizar isto, porem não funcinou muito bem, e acho que esqueci de especificar a linha do erro:

O erro ocorre na segunda linha, quando ocorre a seleção de uma colunano excel:

rstXLS.Open "SELECT * FROM modelo",cnnXLS,adOpenStatic,adLockPessimistic

Uma duvida, o on error resume next pode ser utilizado em qualquer local da página ou apenas no inicio dela?

Grato.

[Luis Otávio]

on error pode por em qualquer lugar ao qual vc quer q começe o tratamento...

quanto a sua dificuldade, qual erro apresenta quando roda a pagina?

[ifnick]

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.

/xls.asp, line 20

A linha 20 do sistema corresponde:

rstXLS.Open "SELECT * FROM modelo",cnnXLS,adOpenStatic,adLockPessimistic

Este erro ocorre quando o arquivo XLS enviado não apresenta a coluna "modelo" ou a mesma não tenha sido definida em "range". E o erro ocrre neste objeto, e devido a isto, a mensagem de erro bloqueia toda a página.