Dim cnBaglanti As ADODB.Connection
Dim catAccess As ADOX.Catalog
Dim tbTablo As ADOX.Table
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Set cnBaglanti = New Connection
Set catAccess = New Catalog
Set tbTablo = New Table
catAccess.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dosya.mdb" 'Dosyamız oluştu,fakat tablo oluşturmadık
cnBaglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dosya.mdb"
catAccess.ActiveConnection = cnBaglanti
tbTablo.Name = "Deneme Tablo"
tbTablo.Columns.Append "Ad", adVarWChar
tbTablo.Columns.Append "Soyad", adVarWChar
tbTablo.Columns.Append "Telefon", adVarNumeric
catAccess.Tables.Append tbTablo
Set catAccess = Nothing
Set tbTablo = Nothing 'Şu anda tek kolonlu bir tablosu olan Access dosyası oluşturduk
End Sub
__________________