标题:VB.Net 如何获取Access数据库中的表名称
只看楼主
shenhaoli
Rank: 1
等 级:新手上路
帖 子:24
专家分:2
注 册:2010-4-15
结帖率:75%
已结贴  问题点数:10 回复次数:5 
VB.Net 如何获取Access数据库中的表名称
如何获取Access数据库中所有表的名称,最好有代码
搜索更多相关主题的帖子: 数据库 Net Access 名称 获取 
2010-04-18 10:36
shenhaoli
Rank: 1
等 级:新手上路
帖 子:24
专家分:2
注 册:2010-4-15
得分:0 
sql server 方法和ACCESS方法不同吧,
sql server 方法和ACCESS方法不同吧,能不能把两种方法都说一下
2010-04-18 10:42
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
得分:10 
程序代码:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Int16 = 0 To GetAllTableName.Count - 1
            MsgBox(GetAllTableName.Item(i).ToString)
        Next

    End Sub
    Function GetAllTableName() As System.Collections.ArrayList
        Dim t As New System.Collections.ArrayList()
        Dim Rs As New ADODB.Recordset()
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\db2.mdb"
        Dim conn As New ADODB.Connection
        conn.Open(connStr)
        Rs = conn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        Do While Not rs.EOF
            If rs("TABLE_TYPE").Value = "TABLE" Then
                t.Add(rs("TABLE_NAME").Value)
            End If
            rs.MoveNext()
            If rs.EOF Then Exit Do
        Loop
        Rs.Close()
        Rs = Nothing
        Return t
    End Function
End Class

SQLSERVER更简单,创建数据连接后,一句SQL语句即搞定:
sqlStr="select [name] from sysobjects where xtype='u'"

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2010-04-18 11:19
shenhaoli
Rank: 1
等 级:新手上路
帖 子:24
专家分:2
注 册:2010-4-15
得分:0 
回复 楼主 shenhaoli
谢谢,问题解决了!
想不到 中仍然可以使用ado,这样有许多问题可以很容易的解决了!
补充一下使用ado的方法:
项目——》添加引用——》COM
找到ado就可以了
2010-04-18 13:40
Boby
Rank: 1
来 自:广东省
等 级:新手上路
帖 子:13
专家分:0
注 册:2010-4-20
得分:0 
好利害!

书中自有黄金屋,努力吧!
言必行,行必果。
2010-04-20 11:18
Boby
Rank: 1
来 自:广东省
等 级:新手上路
帖 子:13
专家分:0
注 册:2010-4-20
得分:0 
VB。NET和VB有什么区别啊,搞不懂问下?

书中自有黄金屋,努力吧!
言必行,行必果。
2010-04-20 11:20



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-303458-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018640 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved