|
Errori OLEDB Catch ex As OleDbException ' An OleDbException has occurred - display details Dim i As Integer, msg As String For i = 0 To ex.errors.Count - 1 Dim er As OleDbError = ex.Errors(i) msg = "Message = " & er.Message & ControlChars.CrLf msg &= "Source = " & er.Source & ControlChars.CrLf msg &= "NativeError = " & er.NativeError & ControlChars.CrLf msg &= "SQLState = " & er.SQLState & ControlChars.CrLf Next txtOut.Text = msg |