Posted under Visual Basic
‘Project/Reference menüsünden Microsoft DAO 3.61 Library i _ ekle ve aşağıdaki kodları kullan. Bir tane de Command button ekle ok? :))
Private Sub Form_Load()
Dim NewDB As Database
Set NewDB = CreateDatabase(”db1.mdb”, dbLangGeneral, dbVersion70)
Dim NewTbl As TableDef
Set NewTbl = NewDB.CreateTableDef(”Tablo1″)
Dim NewField As Field
Set NewField = NewTbl.CreateField(”alan1″, dbText, 25)
NewField.Attributes = dbRequired ‘ bu alanı gerekli gör
NewTbl.Fields.Append NewField
NewDB.TableDefs.Append NewTbl
End Sub
Private Sub Command1_Click()
Dim db As Database
Dim tbl As TableDef
Dim alan As Field
Set db = OpenDatabase(”db1.mdb”, dbOpenTable)
Set tbl = db.TableDefs(”Tablo1″)
Set alan = tbl.CreateField(”alan2″, dbText, 25)
alan.Attributes = dbRequired ‘ bu alanı gerekli gör
tbl.Fields.Append alan
End Sub