Başlangıç > Kodlar > Visual basic 6’da Adodb ile veritabanındaki tüm tablo isimlerinin bulunması

Visual basic 6’da Adodb ile veritabanındaki tüm tablo isimlerinin bulunması


ADODB ile veritabanındaki tüm tablo isimlerinin bulunması.


Private Sub Form_Load()
Dim MyConn As New ADODB.Connection
Dim MyRs As New ADODB.Recordset
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Yedek\Veritabanları\MyVT.mdb;Persist Security Info=True"

 

MyConn.Open
Set MyRs = MyConn.OpenSchema(adSchemaTables)
Do Until MyRs.EOF
If Mid(MyRs(2), 1, 4) <> "MSys" Then
List1.AddItem MyRs(2)
End If
MyRs.MoveNext
Loop
End Sub

ademeyuboglu@hotmail.com

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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: