推荐两种方法给你,下面两个例子都可以将ACCESS数据库中的全部表名写入列表框,请更换为实际数据库路径名,供楼主参考
方法一
Private Sub Form_Load()
Dim cn As New ADODBConnection '声明并实例化一个ADO连接对象
Dim cnStr As String '声明一个连接字符串变量
Dim rsSchema As New ADODBRecordset '声明并实例化一个记录集对象
'设置连接当前目录下“MyAccessmdb”之连接字符串
cnStr = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\MyAccessmdb;Persist Security Info=False;"
cnOpen cnStr '打开与该数据库的连接
Set rsSchema = cnOpenSchema(adSchemaTables) '打开数据库所有表记录集
'循环将所有表名逐个写入列表框
Do Until rsSchemaEOF
If rsSchema!TABLE_TYPE = "TABLE" Then
List1AddItem rsSchema!TABLE_NAME
End If
rsSchemaMoveNext
Loop
rsSchemaClose '关闭记录集
Set rsSchema= Nothing '释放记录集对象
cnClose '关闭连接
Set cn = Nothing '释放连接对象
End Sub
方法二(
ACCESS数据库系统表"MsysObjects"里存放着所有数据表的资料,但是其访问权限默认为不开放。如果不嫌设置ACCESS数据库系统表权限麻烦,下列VB代码可以直接读取"MsysObjects"里记载的已保存表名信息,并于窗体加载时将得到的全部表名写入列表框里。
首先要设置读取ACCESS数据库系统表"MsysObjects"的权限,方法如下:
打开ACCESS数据库-->菜单-->工具-->选项 打开选项对话框,于视图选项卡 勾选“系统对象”点击“确定”按钮;
跟着,菜单-->工具-->安全-->用户与组权限 打开“用户与组权限”对话框,于权限选项卡 选择 “管理员、"MsysObjects"表 于权限框勾选“读取数据”点击“确定”按钮。
注意为了确保ACCESS数据库的安全,设置完权限后,应将系统对象重新隐藏。
菜单-->工具-->选项 打开选项对话框,于视图选项卡 取消勾选“系统对象”
点击“确定”按钮。
Private Sub Form_Load()
Dim cn As New ADODBConnection '声明并实例化一个ADO连接对象
Dim cnStr As String '声明一个连接字符串变量
Dim rs As New ADODBRecordset '声明并实例化一个记录集对象
Dim sqlStr As String '声明一个SQL查询字符串变量
'设置连接当前目录下“MyAccessmdb”之连接字符串
cnStr = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\MyAccessmdb;Persist Security Info=False;"
cnOpen cnStr '打开与该数据库的连接
rsCursorLocation = adUseClient '设置为客户端游标
'设置查询表名列表之SQL语句
sqlStr = "select Name from MsysObjects where type=1 and Flags=0"
rsOpen sqlStr, cn '打开数据库表记录集
'因为直接读取“MsysObjects“得到的表名列表秩序混乱,故这里强制对表名进行排序
rsSort = "Name ASC"
'循环逐个将表名放置到列表框里
Do Until rsEOF
List1AddItem rs!Name
rsMoveNext
Loop
rsClose '关闭记录集
Set rs = Nothing '释放记录集对象
cnClose '关闭连接
Set cn = Nothing '释放连接对象
End Sub
以上内容源自本人百度空间文章>
使用语句查询需要有
sql基础
,但有一定水准以后才能熟练应用,这里只说一下使用access中
sql视图
的方法:
1、打开access的文件
2、点击上方菜单栏的创建-查询设计
3、d出的小窗口点关闭
4、在上半部空白处点右键
以上就是关于vb获取access数据库表名全部的内容,包括:vb获取access数据库表名、jsp+access放在服务器上如何获取access数据库、sql server 怎么读取access数据库数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)