این روش جالب بود ولی خیلی ضعیف بود
من یه جور دیگه بانک رو میسازم
توی روش شما من فیلد از نوع اتونامبر پیدا نکردم
من سه تا فانکشن میزارم که
اولی بانک خالی رو میسازه
دومی جدول با کلید اصلی اصلی میسازه
سومی جدول با کلید اصلی و کلید فرعی میسازه
aval mikham bank ro besazam

Function DBCreate(ByVal DBSource As String) As Boolean

Dim DB As New ADOX.Catalog
DB.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBSource)
Return True
End Function

intori estefade mishe : DBCreate(FileAddress.mdb) | Behamin Sadegi shoma ye file mdb e khali sakhtin
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

hala ba in fanction ye table be esme persons behesh ezafe mikonim

Function tblPersons(ByVal DBSource As String) As Boolean
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=" & DBSource)


Dim CMDtblPersons As OleDb.OleDbCommand = New OleDb.OleDbCommand()
CMDtblPersons.Connection = Cn
CMDtblPersons.CommandText = "CREATE TABLE Persons(PID AUTOINCREMENT NOT NULL,FirstName TEXT(50),LastName TEXT(50),CONSTRAINT Persons PRIMARY KEY(pID))"


Cn.Open()
CMDtblPersons.ExecuteNonQuery()
Cn.Close()
Cn.Dispose()
Cn = Nothing
Return True
End Function


intori estefade mishe : tblPersons(FileAddress.mdb) | Behamin Sadegi shoma ye jadval ba 3ta fild sakhtin
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
hala jadvale dovomo misazim ke ba jadvale aval ye realation e yek be chand dare

Function tblPerDets(ByVal DBSource As String) As Boolean
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=" & DBSource)
Dim cmdPd As New OleDb.OleDbCommand("CREATE TABLE PerDets(pdID AUTOINCREMENT NOT NULL,pID INT NOT NULL,dTitle TEXT(50),CONSTRAINT PerDets_FK FOREIGN KEY (pID) REFERENCES Persons (pID) ,CONSTRAINT PerDets PRIMARY KEY(pdID))", Cn)


Cn.Open()
cmdPd.ExecuteNonQuery()
Cn.Close()
Cn.Dispose()
Cn = Nothing
Return True
End Function

be ravesh e ghabli estefade mishe


fanction e dovom o sevom ye farghe koochooloo dare yani be do ravesh mishe sakht
motmaenam khodetoon baladin
movafagh bashin