用LISTVIEW控件来显示ACCESS库里的数据库表
Private Sub Command1_Click()
Set dbs = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb")
ListView1.View = 2For i = 0 To dbs.TableDefs.Count - 1
def = UCase(dbs.TableDefs(i).Name)
If UCase(Mid(def, 1, 4)) <> "MSYS" Then
x = ListView1.ListItems.Add(, , def, 0)
End If
Next iEnd Sub
Private Sub Command1_Click()
Set dbs = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb")
ListView1.View = 2For i = 0 To dbs.TableDefs.Count - 1
def = UCase(dbs.TableDefs(i).Name)
If UCase(Mid(def, 1, 4)) <> "MSYS" Then
x = ListView1.ListItems.Add(, , def, 0)
End If
Next iEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货