From: | "Simeo Reig" <simreig(at)terra(dot)es> |
---|---|
To: | <pgsql-odbc(at)postgresql(dot)org> |
Subject: | Psqlodbc 7.1.11 |
Date: | 2002-03-08 20:48:54 |
Message-ID: | 006901c1c6e2$a9543060$0a00a8c0@win2000 |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgsql-odbc |
Hi, with psqlodbc 7.1.9 an attempt to write to a table that the current user
doesn't have enought privilege raise error
number -2147467259 and err.description contains "Permission denied", with
psqlodbc 7.1.11 it raise the same err number
but text has changed to "Error while executing the query", that is less
descriptive and I need a descriptive text because error number
-2147467259 is raised for various errors (emty row, referential integrity
violation, duplicate key ...) .
Is this a bug ? How can I know the correct error ?
Thanks
(extract of a class to trap errors)
Select Case Err.Number
Case -2147217864 'the row has changed
msgbox "El registre ha canviat mentres s'editava," & Chr$(13) &
_
"cancel.li els canvis i torni a recuperar el registre " &
Chr$(13) & _
"(Els seus canvis es perdràn)", vbExclamation + vbOKOnly, "Barra
Grid"
Resume Next
Case -2147467259
If InStr(1, Err.Description, "Empty row cannot be inserted",
vbTextCompare) > 0 Then
MsgBox "No es pot afegir un registre buit !"
ErrorTrobat = True
End If
If InStr(1, Err.Description, "Fail to add null value in not
null", vbTextCompare) > 0 Then
MsgBox "Falten Camps Obligatoris"
ErrorTrobat = True
End If
If InStr(1, Err.Description, "referential integrity violation",
vbTextCompare) > 0 Then
MsgBox "No es pot esborrar, hi ha registres relacionats a
altres taules"
ErrorTrobat = True
End If
If InStr(1, Err.Description, "cannot insert a duplicate key into
unique index", vbTextCompare) > 0 Then
MsgBox "No es pot realizar l'operació, crearia valors
duplicats"
ErrorTrobat = True
End If
If InStr(1, Err.Description, "Permission denied", vbTextCompare)
> 0 Then
MsgBox "No té permisos per ha crear nous registres i/o
modificar-los."
ErrorTrobat = True
End If
If InStr(1, Err.Description, "you don't have permissions to set
sequence", vbTextCompare) > 0 Then
MsgBox "No té permisos per ha modificar la sequència."
ErrorTrobat = True
End If
If ErrorTrobat = False Then
MsgBox "Error Inesperat " & Err.Description & Err.Number
End If
Case Else
MsgBox "Error numero :" & Err.Number & " descripcio :" &
Err.Description
End Select
From | Date | Subject | |
---|---|---|---|
Next Message | Alan Wayne | 2002-03-08 23:14:14 | ODBC |
Previous Message | Alan Wayne | 2002-03-08 14:48:34 | Please Help! Trying to connect Foxpro 6.0 to RH postgresql via ODBC |