PDA

View Full Version : Giúp mình sửa lỗi chương trình này với các bạn ơi!



tuphongvan
13-08-2010, 18:24
Mình dùng ADO để kết nối VB6 với Acess 2003. Mình viết chương trình VB để đếm số recordset của 1 table trong file Acess. Chương trình viết bị những lỗi sau, bạn nào biết thì sửa giúp mình với:
- Khi chạy chương trình, nếu click vô command button tên là Form2 thì nó hiện ra thông báo: "Object variable or With block variable not set".
- Nếu click vô command button tên là Form3 thì nó load Form3 nhưng trên ô Text1 nó không hiện số recordset đếm được.
Đây là link chương trình của mình: http://www.mediafire.com/?upss6e2mr10c5mt
Vì mình attachment file mà cứ bị failed hoài nên mình không upload trực tiếp lên đây được.
Nếu được thì các bạn chỉ mình nguyên nhân 2 lỗi trên và sửa lại giúp mình nhe. Cám ơn các bạn nhiều.

baochau122006
18-08-2010, 17:27
Theo tôi bạn không nên dùng activeX Ado có sẵn như trong chương trình. Vì nó không được linh hoạt-Yêu cầu phải đặt đúng đường dẫn cho file dulieu.mdb. Trong trường hợp chương trinh bạn lỗi là do không mỏ được file .mdb nên các records không có hiệu lực. Tôi đã giúp bạn sửa lại code trong form2, còn form3 bạn tự làm lấy - tương tự form2. Bạn down code đã sửa ở đây
http://www.mediafire.com/?9m2bpubzmsosa1e

lengoctuth2010
10-10-2010, 19:54
Mình có code đếm RS thứ 3 mình lên lớp copy về cho bạn ngắn thôi.
Liên lạc mình để nhận ngay : ngoc.tu.tnic@gmail.com
Thân !

=========== < CODE > ===========
Private Sub cmdcount_Click(Index As Integer) ' Button COUNT day
Dim j As String
ado1.Recordset.MoveLast
j = MsgBox("Co " & ado1.Recordset.RecordCount & " hoc sinh !", , "DEM SO HOC SINH ™")
End Sub