Türker Şentürk

Projeye Microsoft ActiveX Database Components 2.5 veya
yukarısını referans gösterin ve de kodu yapıştırın.

Dim dbvbt As New adodb.Connection 

  Dim rsvbt As New adodb.Recordset 

  dbvbt.Open “Driver={Microsoft Access Driver (*.mdb)};” & _ 

             “DBQ=C:\vbturk.mdb” 

  Set rsvbt = dbvbt.OpenSchema(adSchemaTables) 

  Do Until rsvbt.EOF 

     If UCase(rsvbt(“TABLE_TYPE”)) = “TABLE” Then 

      MsgBox rsvbt(“TABLE_NAME”) 

     End If 

     rsvbt.MoveNext 

  Loop 

  rsvbt.Close 

Trackback URL