آیا می توان یک دیتا بیس بوجود آورد ؟

[senator_aka]

سلام دوستان
آیا می شود به برنامه این امکان را داد که یک فایل دیتابیس درست کند.
یعنی هیچ فایلی مانند sql data base وجود نداشته باشد و برنامه پس از اجرا آن را درست کند و به آن متصل شود و اطلاعات در آن ذخیره کند.به مانند اینکه یک فایل متنی درست می کند و اطلاعات در آن ذخیره می شود.
اگر امکان دارد روش را هم بگویید

[senator_aka]

یعنی هیچکس جوابی نداره

[mpmsoft]

Option Explicit
Private myMdbPath As String
Private myMDB As Database
Private myTableDef As TableDef
Private myIndex As DAO.Index

Sub Create_MDB()
myMdbPath = ThisWorkbook.Path & "\" & _
myMDBName & ".mdb"
If Dir(myMdbPath) "" Then Kill myMdbPath

Set myMDB = CreateDatabase(myMdbPath, dbLangGeneral)

Set myTableDef = myMDB.CreateTableDef(MyTable)

With myTableDef
.Fields.Append .CreateField("ID", dbLong, 4)
.Fields.Append .CreateField("ACCT", dbText, 14)
.Fields.Append .CreateField("CII", dbText, 14)
.Fields.Append .CreateField("STATUS", dbText)
.Fields.Append .CreateField("DECISION", dbText)
.Fields.Append .CreateField("RACF", dbText)
.Fields.Append .CreateField("CONTRACTDATE", dbDate)
.Fields.Append .CreateField("RECEIPTDATE", dbDate)
.Fields.Append .CreateField("FOLLOWUPDATE", dbDate)
.Fields.Append .CreateField("FOLLOWUP_N1", dbText)
.Fields.Append .CreateField("FOLLOWUP_N2", dbText)
.Fields.Append .CreateField("DECLIFE", dbText)
.Fields.Append .CreateField("DECDIS", dbText)
.Fields.Append .CreateField("REASON", dbText)
.Fields.Append .CreateField("FIRSTNAME", dbText)
.Fields.Append .CreateField("LASTNAME", dbText)
.Fields.Append .CreateField("ADDLINE1", dbText)
.Fields.Append .CreateField("ADDLINE2", dbText)
.Fields.Append .CreateField("CITY", dbText)
.Fields.Append .CreateField("ST", dbText, 2)
.Fields.Append .CreateField("ZIP", dbText, 5)

myTableDef("ID").Attributes = dbAutoIncrField

Set myIndex = .CreateIndex("ACCT")
myIndex.Fields.Append myIndex.CreateField("ID", dbLong)

myIndex.Primary = True
.Indexes.Append myIndex
End With

' Save Table info
myMDB.TableDefs.Append myTableDef
myMDB.Close
End Sub

Private Function myMDBName()
myMDBName = Application.InputBox("Give " &amp: _
the name of the " & _
"Access file you want to be saved. ")
End Function
Private Function MyTable()
MyTable = Application.InputBox("Give " & _
the name of the " & _
"Table you want in MDB file. ")
End Function