Dim db As Database
Dim wrkDefault As Workspace
Dim dbsNew As Database
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase("a:\NewDB.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.Close
سرامی جان همه هیچی اون محل زندگیت منو کشته ...با عرض سلام حالا اگر بخواهیم فرمت ما در درایو مربوط mdb نباشه ومثلا datیاdbf ذخیره بشه چه تغییری در کد میدیم ؟با تشکر همچنین درایو دلخواه رو ما انتخاب کنیم غیر ار دیسکت باشه یعنی
آخرین ویرایش به وسیله ramin_xp : سه شنبه 27 آذر 1386 در 14:57 عصردلیل: اصلاح