如何取得mdb、xls等数据库里面所有表的名称?

flyland 2004-09-13 03:25:23
如何取得mdb、xls等数据库里面所有表的名称?
...全文
158 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
RUKYO 2004-09-13
  • 打赏
  • 举报
回复
以上要引用ADO对象:

工程->引用Microsoft ActiveX Data Objects 2.x Library
RUKYO 2004-09-13
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Command1_Click() '获得Access表名
Dim mCnnString As String
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
Call mGetTableName(mCnnString)
End Sub

Private Sub Command2_Click() '获得Excel表名
Dim mCnnString As String
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & App.Path & "\Book1.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes;"";"
Call mGetTableName(mCnnString)
End Sub

Public Sub mGetTableName(ByVal mSendString As String)
Dim mCon As New ADODB.Connection
Dim mSchema As New ADODB.Recordset
mCon.Open mSendString
Set mSchema = mCon.OpenSchema(adSchemaTables)
Do Until mSchema.EOF
If mSchema!TABLE_TYPE = "TABLE" Then Debug.Print "Table name: " & mSchema!TABLE_NAME & vbCr & "Table type: " & mSchema!TABLE_TYPE & vbCr
mSchema.MoveNext
Loop
Set mSchema = Nothing
Set mCon = Nothing
End Sub
online 2004-09-13
  • 打赏
  • 举报
回复
http://blog.csdn.net/online/archive/2004/09/08/98744.aspx
测试环境:WINXP+VB6

添加2个列表框,1个按钮



'引用微软 ADO Ext.2.X for dll and Security

Dim cat As ADOX.Catalog

Dim cnn As ADODB.Connection

Dim tbl As ADOX.Table



Private Sub Command1_Click()

On Error Resume Next

For Each tbl In cat.Tables

'如果是sqlserver数据库,则变成If Left(tbl.Name, 3) <> "sys"

If Left(tbl.Name, 4) <> "MSys" Then

List1.AddItem tbl.Name

End If

Next

End Sub



Private Sub Form_Load()

Set cnn = New ADODB.Connection

Set cat = New ADOX.Catalog

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\article.mdb"

'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"

Set cat.ActiveConnection = cnn

End Sub



Private Sub Form_Unload(Cancel As Integer)

Set cat = Nothing

Set con = Nothing

End Sub

lyc0553 2004-09-13
  • 打赏
  • 举报
回复
sp_tables
RUKYO 2004-09-13
  • 打赏
  • 举报
回复
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=8159
软件详细信息 软件可建立并管理Access数据库、Xbase数据库、Excel数据库及Text文本数据库。主要功能有: 一、字段开关与顺序控制功能。可控制数据显示、记录排序、浏览编辑状态及数据导出结果。换言之,只能显示、排序、编辑及导出被添加的字段,且显示、排序、编辑及导出结果的顺序与添加字段的顺序一致。 二、数据计算与编辑功能。包括按线性公式批量修改记录、按工程公式批量修改记录、浏览编辑记录、修改单元格记录、增加记录、删除记录、合并记录等。 三、通用查询与检索功能。除可在全程或设定的范围内管理记录外,还可设定过滤条件,对只符合条件及规定范围内的记录进行操作。 四、数据排序功能。排序的结果可导出为Access数据(MDB)、Excel数据(XLS)、文本数据(TXT)、Xbase数据(DBF)等格式。  五、数据比较功能。可比较两个的结构属性及记录异同情况,也可比较同一中两个字段的异同情况,并存储比较结果。  六、记录合并功能。可将数据中某列(关键字段)具有相同值的所有记录数据进行合并。 七、记录连接功能。可将两个中符合条件(两个中各自选定的关键字段值相同)的所有记录连接生成一个新的。 八、数据统计功能。可对中数据以记录为单位进行汇总(横向统计)、也可以字段为单位进行汇总(纵向统计,即分类汇总)。统计的结果可导出为Access数据(MDB)、Excel数据(XLS)、文本数据(TXT)、Xbase数据(DBF)等格式。 九、数据导入导出功能。可将Access数据库、Xbase数据库、Excel数据库、Text文本数据库等四种格式的数据库格式进行相互导入导出。导出前可设置过滤条件、导出范围及导出字段开关与顺序。 十、文本数据分隔符转换功能。为了兼容除逗号以外的其它分隔符的文本文件,应用此模块进行分隔符转换(即替换),以适应本软件或用户其它软件的特殊要求。 十一、曲线显示与打印功能。不仅可显示任意字段变量随记录号的变化曲线,而且还可显示任意两个字段变量之间的关系曲线。显示的曲线可打印输出到WORD文档中。 十二、结构维护功能。可新建库、压缩库、增加、删除、修改名、增加字段、删除字段、修改字段属性(包括字段名称、字段类型、字段尺寸)。 十三、密码管理功能。可管理有密码的数据库,并具有设置密码、修改密码、清除密码、破解密码等功能。 十四、管理非Access文件。包括Xbase、Excel、Text等类型的文件,并可对记录数据进行查询检索、编辑、统计、排序,且管理的结果可导出为mdb、dbf、txt、xls等格式。 十五、用户可根据实际应用情况,自定义软件的名称、数据处理路径、数据备份路径等,使数据管理更加个性化。鼠标经过大多数控件处,均有相关帮助与提示信息。软件可在菜单方式与集成方式两种界面之间自由切换,并根据屏幕分辨率软件自动调节窗体,使窗体始终保持最大的可视界面,建议屏幕分辨率设置为1024×768为最佳。 与9.1版相比,9.2版增加了本数据分隔符转换功能;进一步完善了导入导出功能,使导入导出成功率更高。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧