استفاده همزمان از دو دیتابیس

[talabaki]

سلام دوستان
من یک ماژول دارم که باید در آن همزمان از دو تا دیتابیس استفاده کنم . توی دستورات در ماژول ما معمولا از currentdb استفاده می کنیم حالا باید چکار کنم که بتونم بین دیتابیس ها هر جا که خواستم سوئیچ کنم
شبه کد به صورت زیر است .


1-برای هر ماده موجودی آن را بدست بیاور ** این قسمت از دیتابیس یک بدست می آید
2-در هر تاریخ میزان مصرف از آن ماده را بدست آور** این قسمت از دیتابیس دو بدست می آید
3-مصرف -موجودی= موجودی را محاسبه کن

لطفا هر کی می دونه زودتر جواب بده. با تشکر

[مهدی قربانی]

سلام
اين يك نمونه خوندن اطلاعات از يك ديتابيس خارجي :

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = OpenDatabase("C:\FileName.mdb")
Set rst = dbs.OpenRecordset("TblName")

MsgBox "تعداد ركوردها : " & rst.RecordCount

بجاي FileName‌نام فايل مقصد رو وارد كنيد ضمن اينكه بايد آدرس كامل رو در داخل دابل كوتيشن ها ذكر كنيد .
بجاي TblName‌هم نام جدول موجود در ديتابيس خارجي .

[saan1359]

سلام،
نمونه فراخوانی از یک دیتابیس دیگه رو براتون در ماژول1 گذاشتم، نمونه را در vb اجرا کنید و توضیحات لازم را نیز داده ام.
نحوه فراخوانی هر فیلد از جدول برای محاسبات را بخوانید
در پناه خداوند بی همتا:لبخندساده: