Xử lý lỗi ‘3146’ trong chương trình VB

Điều đầu tiên mà các lập trình viên thường nghĩ tới là tại sao chương trình không hiển thị được thông báo lỗi cụ thể và cần phải sửa chương trình. Mặc dù cách làm rất đơn giản nhưng ít người để ý (cách làm này đã có từ VB4). Lập trình viên cần duyệt Errors collection để lấy đủ thông tin chi tiết trước khi hiển thị cho người dùng bằng cách thay câu lệnh cụt lủn MsgBox Err.Number &" " & Err.Description trong phần bẫy lỗi bằng đoạn mã dưới đây:

Dim sError As String
Dim nI As Integer
Dim sTitle As String
sError = ""
' Determine whether or not this is a database error
If DBEngine.Errors.Count > 0 Then
If DBEngine.Errors(DBEngine.Errors.Count-1)._
Number = Err.Number Then
sTitle = "Database Error"
For nI = 0 To DBEngine.Errors.Count - 1
sError = sError & DBEngine.Errors(nI) & vbCrLf
Next
sError = sError & vbCrLf
End If
End If
If sError = "" Then
sTitle = "Error"
' add the error string
sError = sError & Err.description & vbCrLf
End If
MsgBox sError, , sTitle

Lưu ý: nếu truy cập cơ sở dữ liệu bằng RDO, các bạn cần thay DBEngine.Errors trong đoạn mã trên bằng rdoEngine.rdoErrors.

Nhưng sửa chương trình không phải là cách duy nhất và cũng không phải là cách hay nhất trong mọi trường hợp. Chỉnh sửa chương trình là cần thiết cho những lần sau, nhưng nếu đang gấp hay không thể gửi ngay chương trình cập nhật cho người dùng, bạn làm thế nào để xác định nguyên nhân lỗi. Ngay cả khi không có chương trình nguồn trong tay, bạn vẫn có thể xác định được nguyên nhân thực sự gây lỗi để tìm cách khắc phục.

Để làm được điều đó, hãy hướng dẫn người dùng bật tính năng ODBC tracing trên máy khách theo các bước sau:

Nguyễn Anh Tuấn
(theo PC World VN)