Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lập trình bằng ADO trong Acess
#11
(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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#12
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?
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
Reply
Những người đã cảm ơn
#13
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:
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
3. Code xóa:
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
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.
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#14
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?
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
Reply
Những người đã cảm ơn
#15
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é !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#16
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 016
cảm ơn các bạn !Present
Chữ ký của 977net Xin chào, mình là 977net, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -13.
Reply
Những người đã cảm ơn
#17
(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 016
cảm ơn các bạn !Present

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 040
Chữ ký của 977net Xin chào, mình là 977net, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -13.
Reply
Những người đã cảm ơn
#18
(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 016
cảm ơn các bạn !Present

Bạn tham khảo Demo này xem có đúng ý bạn không nhé !

Demo_LoadMainSubForm

Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn 977net
#19
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? 027
Chữ ký của 977net Xin chào, mình là 977net, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -13.
Reply
Những người đã cảm ơn
#20
(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? 027

Đú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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn thucgia


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 241 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tìm số thứ tự bị thiếu trong dãy toanle 8 205 07-12-16, 02:25 PM
Bài mới nhất: toanle
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,700 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Hỏi] Kết nối nhiều lần hay kết nối 1 lần trong ADO ưu điểm hơn Minh Tiên 1 124 10-11-16, 10:41 AM
Bài mới nhất: maidinhdan
  Summary bằng VBA trong MS Access. MinhnHang 6 320 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ