17-09-15, 02:28 AM
اريد قطع الإتصالات الآتية بواسطة الكود وذلك عندما كتبت كود هكذا
dim rs as recordset
dim db as database
Dim db9 As New ADODB.Connection
dim rss as new ADODB.Recordset
في منطقة general
.وفي الفورم لوود
Set db = OpenDatabase("data.mdb")
Set rs = db.OpenRecordset("Safe")
db9.Provider = "Microsoft.JET.OLEDB.4.0;"
db9.Open App.Path & "\data.mdb"
rss.Open "[Orders]", db9, adOpenStatic, adLockReadOnly
dim rs as recordset
dim db as database
Dim db9 As New ADODB.Connection
dim rss as new ADODB.Recordset
في منطقة general
.وفي الفورم لوود
Set db = OpenDatabase("data.mdb")
Set rs = db.OpenRecordset("Safe")
db9.Provider = "Microsoft.JET.OLEDB.4.0;"
db9.Open App.Path & "\data.mdb"
rss.Open "[Orders]", db9, adOpenStatic, adLockReadOnly
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah