这一句话什么意思?

nanyankaoran 2007-12-15 02:49:05
Private Sub Command1_Click()
Common.DefaultExt = "*.mdb"
Common.Filter = "*.mdb"
Common.ShowOpen
Text1.Text = Common.FileName
cn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=" & Common.FileName & ";Persist Security Info= False"
Set rs = cn.OpenSchema(adSchemaTables)
Do Until rs.EOF
If Left(rs!TABLE_NAME, 4) <> "MSys" Then

List1.AddItem rs!TABLE_NAME
End If
rs.MoveNext
Loop
rs.Close
End Sub
If Left(rs!TABLE_NAME, 4) <> "MSys" Then
尤其是MSYS J是什么?
...全文
50 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zuoxingyu 2007-12-17
MSys

数据库里的表名称,前4个字符是MSys的,就不列出来了,其他都列出来,估计MSys是系统表吧
回复
东方之珠 2007-12-17
应该是一个表
回复
guyehanxinlei 2007-12-17
是一张表名
回复
应该是循环判断access中 的表 假如是用户表就把 表名 罗列到 list1 列表控件中
回复
wing013 2007-12-15
一個表,名叫MSys
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告