Kodlarla Database oluşturmak ve varolan bir database’e yeni alan eklemek



’Project/Reference menusunden Microsoft DAO 3.61 Library i _ ekle ve aşağıdaki kodları kullan. Bir tane de Command button ekleyin...kodlarda şu şekilde;

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 gor
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 gor
tbl.Fields.Append alan

End Sub
__________________