چطوری میشه در هنگام اجرای برنامه فایل اکسس با نام دلخواه تولید کرد

چطوری میشه در هنگام اجرای برنامه فایل اکسس با نام دلخواه تولید کرد

با این کدها می تونی دیتابیس با نام دلخواه و همچنین مکان دلخواه ایجاد کنی
برای ایجاد

کد:

---

dialog.ShowSave
Set db = DBEngine.Workspaces(0).CreateDatabase(dialog.FileName, dbLangGeneral)
Set db = OpenDatabase(dialog.FileName)
Set def = db.CreateTableDef("tbd")
With def
.Fields.Append .CreateField("xds", dbInteger)
.Fields.Append .CreateField("yds", dbInteger)
.Fields.Append .CreateField("xde", dbInteger)
.Fields.Append .CreateField("yde", dbInteger)
.Fields.Append .CreateField("i", dbInteger)
End With
db.TableDefs.Append def
db.Close
Datad.DatabaseName = dialog.FileName
Datad.Refresh
Datad.RecordSource = "tbd"
Datad.Refresh

---

برای لود کردن

کد:

---

dialog.ShowOpen
Datad.DatabaseName = dialog.FileName
Datad.Refresh
Datad.RecordSource = "tbd"
Datad.Refresh

---

منونم خیلی کمکم کردی