24-01-2007, 23:06
|
|
|
חבר מתאריך: 07.10.06
הודעות: 1,795
|
|
הנה:
קוד:
Dim rst As Recordset 'הגדרת משתנה רקורדסט
'הגדרה קבועה של שאילתה
Set rst = CurrentDb.OpenRecordset("qurPractice", dbOpenDynaset)
'פתיחת מסד נתונים
Dim db As Database 'הגדרת משתנה מסוג מסד נתונים
Set db = OpenDatabase("c:\Library.mdb") 'פתיחת מסד הנתונים
Set rst = db.OpenRecordset("tblLibrary", dbOpenDynaset) 'פתיחת התבלא או שאילתה
|