A
B
C
Ç
D
E
F
G
Ğ
H
I
İ
J
K
L
M
N
O
P
R
S
Ş
T
U
Ü
V
Y
Z
Q
W
X
+ Ekle
Visual Basic’ten Yeni Bir Acces Veri Tabanı Oluşturmak

Visual Basic’ten Yeni Bir Acces Veri Tabanı Oluşturmak Visual Basic"ten Yeni Bir Acces Veri Tabanı Oluşturmak
Visual basic"ten yeni bir acces veri tabanı oluşturmak
programa microsoft activex data object 2.8 tarzı bir referans ekleyin
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


brush







  Ad Soyad
  Yorum