1- Sıfırdan bir dosya oluşturulur. Eğer oluşturulmak istenen dosya varsa uyarı alırsınız.
2- Dosya içinde bir tablo oluşturursunuz.
3- Dosyanızda yeni alanlar oluşturursunuz.
Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index
On Error GoTo hata_yakala
ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\AccessTRyeniDB.mdb"
On Error Resume Next
ADOXcatalog.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\AccessTRyeniDB.mdb"
ADOXtable.Name = "tbl_yeni_tablo"
ADOXtable.Columns.Append "musteri_id", adInteger
ADOXtable.Columns.Append "ad", adVarWChar, 40
ADOXtable.Columns.Append "soyad", adVarWChar, 20
ADOXcatalog.Tables.Append ADOXtable
hata_yakala:
If Err.Number = -2147217897 Then
MsgBox "Bu veritabanı zaten var", vbInformation + vbOKOnly, "Dosya zaten var"
ElseIf Err.Number <> 0 Then
MsgBox "Hata : " & Err.Description
End If
Set ADOXtable = Nothing
Set ADOXindex = Nothing
Set ADOXcatalog = Nothing
NOT : Bu kodların çalışması için Reference içinden "Microsoft ADO Ext. 2.x for DDL and Security" yüklenmiş olmalıdır.
