Tùy chọn
Lập trình bằng ADO trong Acess
- Lập trình bằng ADO trong Acess
-
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 08-12-13, 10:41 PM
(08-12-13, 10:36 PM)Xuân Thanh Đã viết: 1/ Cái mà tôi muốn nhắn nhủ mọi người là với mỗi bộ Office sẽ có cái Provider....khác nhau
2/ Bạn nào quan tâm tới ADO, tham khảo các bản Demo của bạn tmtien261
3/ Nhắc thêm bạn tmtien261 về việc sử dụng các thư viện cho hợp lý, nếu không sẽ chiếm dụng bộ nhớ quá nhiều không cần thiết và làm giảm tốc độ truy xuất dữ liệu
Thân mến
Cảm ơn XT đã nhắc. Mình Save as từ ứng dụng của mình mà quên ko bỏ một số thư viện thừa. Cảm ơn bạn nhiều !
Thân chào ! -
RE: Lập trình bằng ADO trong Acess
tt1212 > 08-12-13, 10:48 PM
Anh xuân thành cho em hoi khi mình nhập vào textboxt làm thế nào để dữ liệu lưu lại trên bảng ha anh Thành
tmtien261
Có thể giúp mình cách hiển thị nhiều rcord tren form và lưu sau khi sửa hoặc xóa trên form không? -
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 09-12-13, 10:32 AM
1. Muốn hiển thị nhiều Record trên form thì bạn cứ cho Load và gắn RecordSource cho Form và thiết kế Form dạng Continuous Form là OK.
2. Code sửa:
3. Code xóa:Mã:Private Sub Edit()
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Access.OLEDB.10.0"
.Properties("Data Provider").Value = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "D:\QLBH\BaitapADO\QLBH_Data.mdb"
.Open
End With
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = Cnn
.Source = "select * from tblXuathangban_Le_Chitiet_Tam where Mahang='" & Me.cboMahangban & "' order by XuathangbanchitietID"
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
.Fields("Soluongban") = .Fields("Soluongban") + 1
.Fields("Thanhtienban") = .Fields("Soluongban") * .Fields("Dongiaban") - .Fields("Tienchietkhau")
.Fields("Dongianhap") = Nz(Me.cboMahangban.Column(7), 0)
.Fields("Thanhtiennhap") = .Fields("Soluongban") * Nz(.Fields("Dongianhap"), 0)
.Update
.Requery
End With
rs.Close
Set rs = Nothing
Cnn.Close
Set Cnn = Nothing
End Sub
Mình cũng mới tiếp cận ADO nên chỉ biết thế thôi. Ko biết các Pro có cách nào tốt hơn thì xin chia sẽ để cùng nghiên cứu.Mã:Private Sub Delete()
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Access.OLEDB.10.0"
.Properties("Data Provider").Value = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "D:\QLBH\BaitapADO\QLBH_Data.mdb"
.Open
End With
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = Cnn
.Source = "SELECT * FROM tblXuathangban_Le_Chitiet_Tam where Mahang='" & Form!frmXuathangban_Le_Chitiet!Mahang & "' order by XuathangbanchitietID"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
.Delete adAffectCurrent
.Update
.Requery
End With
rs.Close
Set rs = Nothing
Cnn.Close
Set Cnn = Nothing
End Sub -
RE: Lập trình bằng ADO trong Acess
tt1212 > 09-12-13, 01:25 PM
Xin chân thành cảm ơn banh đã chia sẻ luôn tiện bạn cho mình hoi code lưu luôn đươc không? -
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 09-12-13, 05:50 PM
Tất cả các Code mình nêu trên đã có phần Update (Tức đã lưu vào CSDL rồi), mình chưa hiểu bạn muốn Code lưu như thế nào ? Bạn nói rõ hơn để mọi người xem có giúp được ko nhé ! -
RE: Lập trình bằng ADO trong Acess
977net > 13-12-13, 07:21 AM
Mình cũng đang bí phần code (ADO) cho subform (datasheet), bạn nào có Demo hay code, hướng dẫn...
cho mình xin với
cảm ơn các bạn !
-
RE: Lập trình bằng ADO trong Acess
977net > 17-12-13, 02:03 PM
(13-12-13, 07:21 AM)977net Đã viết: Mình cũng đang bí phần code (ADO) cho subform (datasheet), bạn nào có Demo hay code, hướng dẫn...
cho mình xin với
cảm ơn các bạn !
Cho mình hỏi thêm, làm sao để duyệt các bản ghi trong CSDL? (code cho nút next, preview, last,...)
Mình làm mãi mà không được, các bạn giúp mình với
-
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 17-12-13, 06:16 PM
(13-12-13, 07:21 AM)977net Đã viết: Mình cũng đang bí phần code (ADO) cho subform (datasheet), bạn nào có Demo hay code, hướng dẫn...
cho mình xin với
cảm ơn các bạn !
Bạn tham khảo Demo này xem có đúng ý bạn không nhé !
Demo_LoadMainSubForm
Thân chào ! -
RE: Lập trình bằng ADO trong Acess
977net > 17-12-13, 08:07 PM
Cảm ơn bạn tmtien261 !
-Phần tạo Source cho subform mình đã làm được rồi, nhưng bí ở chỗ là form datasheet cũng giống như một table, người dùng có thể chọn nhiều dòng rồi xóa hết một lần, rồi sau đó lại có thể thêm các dòng khác(với nội dung khác). Như vậy làm sao viết code cho nút lưu để cập nhật các thêm , sửa , xóa cho sub?
-Trong bản Demo của bạn mình thấy kết nối vẫn chưa thực sự ngắt khi gọi CloseMyConnect,
vì trong thư mục chứa CSDL (file LoadSubform_ADO_Data.accdb) vẫn còn file LoadSubform_ADO_Data.laccdb tức là file LoadSubform_ADO_Data.accdb vẫn đang được mở để truy xuất,hình như có gì đó chưa đúng?
-
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 18-12-13, 11:50 AM
(17-12-13, 08:07 PM)977net Đã viết: Cảm ơn bạn tmtien261 !
-Phần tạo Source cho subform mình đã làm được rồi, nhưng bí ở chỗ là form datasheet cũng giống như một table, người dùng có thể chọn nhiều dòng rồi xóa hết một lần, rồi sau đó lại có thể thêm các dòng khác(với nội dung khác). Như vậy làm sao viết code cho nút lưu để cập nhật các thêm , sửa , xóa cho sub?
-Trong bản Demo của bạn mình thấy kết nối vẫn chưa thực sự ngắt khi gọi CloseMyConnect,
vì trong thư mục chứa CSDL (file LoadSubform_ADO_Data.accdb) vẫn còn file LoadSubform_ADO_Data.laccdb tức là file LoadSubform_ADO_Data.accdb vẫn đang được mở để truy xuất,hình như có gì đó chưa đúng?
Đúng như bạn ý kiến, mình cũng đã mày mò những chưa giải thích được. Mình làm theo hướng dẫn tại địa chỉ các Pro trên diễn đài chỉ giáo (http://support.microsoft.com/kb/281998/vi-vn)
Nhờ các Pro ADO giải thích hộ. Thanks !
Thân chào !