Başlangıç > Kodlar > Visual Basic 6 ile yeni bir access veri tabanı oluşturmak

Visual Basic 6 ile yeni bir access 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

Burak ÖZTÜRK


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: