• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Ai bắt lỗi nếu không có file Access

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

vb2015A
Thành viên chính thức
Thành viên chính thức
Bài viết: 16
Ngày tham gia: T.Năm 10/09/2015 8:47 am
Đến từ: Khánh Hòa
Has thanked: 4 time
Liên hệ:

Ai bắt lỗi nếu không có file Access

Gửi bàigửi bởi vb2015A » T.Năm 29/10/2015 4:55 pm

Sub Connect()
cn.Provider = "Microsoft.jet.OLEDB.4.0"
cn.ConnectionString = App.Path & "\VB.mdb"
cn.Open
.....
End Sub

Vấn đề bắt lỗi:{ Nếu có file Access chắc chắn là chạy cn.Open . Nhưng nếu không có file Access thì báo lỗi tại : cn.Open }

Ai biết bắt lỗi chỗ này thì chỉ với. Thanks



Hình đại diện của người dùng
tungblt
Điều hành viên
Điều hành viên
Bài viết: 549
Ngày tham gia: T.Hai 22/12/2008 5:22 pm
Đến từ: quy nhơn
Has thanked: 6 time
Been thanked: 76 time
Liên hệ:

Re: Ai bắt lỗi nếu không có file Access

Gửi bàigửi bởi tungblt » T.Sáu 30/10/2015 1:43 pm

Kiểm tra sự tồn tại của file access , nếu không có file sẽ thông báo lỗi . tham khảo topic :http://caulacbovb.com/forum/viewtopic.php?t=6273
love

Hình đại diện của người dùng
xuanha
Guru
Guru
Bài viết: 1230
Ngày tham gia: T.Năm 19/08/2010 4:25 pm
Đến từ: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 time
Been thanked: 380 time
Liên hệ:

Re: Ai bắt lỗi nếu không có file Access

Gửi bàigửi bởi xuanha » T.Tư 04/11/2015 9:47 am

Chỉ cần đơn giản thể này cũng được
Sub Connect()
cn.Provider = "Microsoft.jet.OLEDB.4.0"
If Dir(App.Path & "\VB.mdb") = Empty then Exit Sub
cn.ConnectionString = App.Path & "\VB.mdb"
cn.Open
.....
End Sub
Kiểm phiếu Đại hội Đoàn, Đại hội Đảng
http://caulacbovb.com/forum/viewtopic.php?t=23599


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách