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
__________________
Kodlarla Database oluşturmak ve varolan bir database’e yeni alan eklemek
Programlama0 Mesaj
●26 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Kodlarla Database oluşturmak ve varolan bir database’e yeni alan eklemek