Tùy chọn
Lập trình bằng ADO trong Acess
- Lập trình bằng ADO trong Acess
-
Lập trình bằng ADO trong Acess
tt1212 > 08-12-13, 10:42 AM
Chào các bạn!
Hiện nay mình đang lập trình trên Acess bằng kỹ thuật DAO và mình làm rất tốt tuy nhiên mình muốn tiếp cận đến công nghệ mới bằng kỹ thuật ADO bởi vì nếu lập trình được ADO thi rất có lợi thế nào mình chuyển qua VB.Net hoặc và những ngôn ngữ khác, cũng như mình có thể kết nối dữ liệu từ xa.
Những khi viết Mã bằng ADO còn bỡ ngỡ.
Mình đang muốn làm một dự án trên hai File.
Một là: Data chứa các bảng Acess.
hai là : File truy xuất dữ liệu.
Trong File truy xuất dữ liệu mình viết một hàm
MoKetnoi
mục dich hàm này sẽ được dùng nhiều lần trong các FormMã PHP:Option Compare Database
Public cnn As New ADODB.Connection
Public Sub Moketnoi()
With cnn
.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & _
CurrentProject.Path & "DATAKSan.mdb"
.Properties("Jet OLEDB:Database Password") = ""
.CursorLocation = adUseClient
.Open
End With
End Sub
Ở một Form nào đó VD form FRMDmphong mình muốn kết nối form nay với bảng TBPhong ở trong File Data thì trong sự kiện Loand Form mình chỉ cần gọi lại
Mã PHP:Private Sub Form_Load()
Moketnoi
End SubNhưng không thành côngMã PHP:Dim lsSQL As String
Dim lrs As New ADODB.Recordset
lsSQL = "select * from TBphong"
lrs.Open lsSQL, cnn, adOpenStatic, adLockBatchOptimistic
Set Me.Recordset = lrs
Set lrs = Nothing
End Sub
Nó bào lỗi ở phần
.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & _
CurrentProject.Path & "DATAKSan.mdb"
Của thu tục kết nối.
Nhờ các bạn giúp đỡ Nếu có File Demo nào post lên cho mình tham khảo với -
RE: Lập trình bằng ADO trong Acess
MTNQ > 08-12-13, 05:02 PM
Mình nghĩ sai chỗ này:
data source=" & CurrentProject.Path & "DATAKSan.mdb"
Sửa lại là:
Mã:data source=" & CurrentProject.Path & "\DATAKSan.mdb"
Dây là file DEMO đơn giản mình tải từ http://www.dbforums.com
Mình để nguyên file gốc (Zip) khi tải về.
Demo ADO Unbound form
Mình cũng đang nghiên cứu chủ đề này, ai có file Demo thì chia cùng sẻ với nha!
-
RE: Lập trình bằng ADO trong Acess
Xuân Thanh > 08-12-13, 05:14 PM
1/ Sửa theo MatTroiNguQuen
2/ Bạn phải xem mình đang dùng bộ Office nào mới có cách kết nối cụ thể ( Cái này nè : Provide.....)
3/ Đã định nghĩa biến thì phải Set biến, nếu không sẽ bị lỗi
Thân mến -
RE: Lập trình bằng ADO trong Acess
tt1212 > 08-12-13, 06:40 PM
Cảm ơn các bạn đã trả lời. Hiện mình đang dùng Office 2003 -
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 08-12-13, 07:21 PM
-
RE: Lập trình bằng ADO trong Acess
Xuân Thanh > 08-12-13, 08:13 PM
Bạn tmtien261 test thủ khi Connect_ADO và Connect_Data đều là file Access ver >= 2007 chưa? Nếu có thì gửi file demo lên cho mọi người tham khảo
Thân mến -
RE: Lập trình bằng ADO trong Acess
tt1212 > 08-12-13, 08:30 PM
Xin cảm ơn các bạn đã giúp đỡ.
Luôn tiện cho mình hỏi luôn Trong kỹ thuật DAO khi muốn đưa dữ liệu từ bảng này qua bảng khác thì mình viết
Còn trong ADO thì thủ tục đó mình có thể viết thể nàoMã PHP:Dim tb1 As Recordset, tb2 As Recordset
Set tb1 = CurrentDb.OpenRecordset("Bangkhach", dbOpenDynaset)
Set tb2 = CurrentDb.OpenRecordset("Banghoadon", dbOpenDynaset)
Do Until tb2.EOF
If tb2!Makhach <> tb1!Makhach Then
tb1.AddNew
tb1!Makhach = tb2!Makhach
tb1!Tenkhach = tb2!Tenkhach
tb1!SoDT = tb2!SoDT
Exit Do
tb1.Update
End If
tb2.MoveNext
Loop
tb1.Close
tb2.Close
Ở đây mình chưa rõ lắm mong các bạn giúp đỡ thêm -
RE: Lập trình bằng ADO trong Acess
Minh Tiên > 08-12-13, 10:18 PM
(08-12-13, 08:13 PM)Xuân Thanh Đã viết: Bạn tmtien261 test thủ khi Connect_ADO và Connect_Data đều là file Access ver >= 2007 chưa? Nếu có thì gửi file demo lên cho mọi người tham khảo
Thân mến
Mình đã test OK trên Acc2007. (Các bạn thay đổi đường dẫn trong Function theo đường dẫn của file Connect_Data.accdb)
Demo
Thân chào ! -
RE: Lập trình bằng ADO trong Acess
Xuân Thanh > 08-12-13, 10:36 PM
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 -
RE: Lập trình bằng ADO trong Acess
tt1212 > 08-12-13, 10:36 PM
Tình hình là mình có làm một Form dạng Continuous Forms nhưng sau khi kết nôi các textbox và view len thi chi xuất hiện có một record duy nhật mặc du minh da dung Docmd.show record trong biến cố loand form cung nhu chon thuộc tính Continuous Forms cho Form ma vấn chỉ xuất hiện có một Rcord trong khi trong bảng có nhiều record vậy là sao hả các bạn?