Erro em Adodb

[*_Charles Potter_* 1]

Ahe gente,,

 

tipo tenho a seguindo rotina para conexão com bd acess

 

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "driver={MySQL ODBC 3.51 Driver}; server=" & servidor & "; uid=" & login_bd & "; pwd=" & senha_bd & ";database=" & base_de_dados

 

existe alguma forma de verificar, no fim da página, se algum dos query executados apresentou erro?

[scorpio 7]

Se der erro, vai parar de executar e mostrar o erro pra você. Tá usando on error resume next ?

[xanburzum 169]

ele esta retornando erro ???

[*_Charles Potter_* 1]

Estou usando error resume next, mas ao consultar por err.number, nao retorna o erro ( qando o erro é de algum query )

[xanburzum 169]

verifique se o codigo esta td certo, e existem ótimos exemplos do laboratorio de script...

O On Error Resume Next é o único tratamento possível, porém se for usado de forma errada ele torna-se péssimo.

 

O exemplo abaixo abre uma conexão de banco de dados, apenas mostrando o erro.

 

<%
ConnectionString = "DBQ=c:\inetpub\wwwroot\mysite\data\mydatabase.mdb;Driver={Microsoft Access Driver (*.mdb)};"
  
'*** Este código verifica ConnectionString
Err.Clear
On Error Resume Next
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
ConnPasswords.Open ConnectionString
  
If Err.Number <> 0 Then
  
  Response.Write (Err.Description& "<br><br>")
   
  Response.Write("Isto significa que é mais provável que um problema com o" & vbCrLf)
  Response.Write("""ConnectionString"" informações que você especificou.<br>" & vbCrLf)
  Response.End
  
End If
On Error GoTo 0
%>