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

2004-09-13 03:25:23 198 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ACCESS VBA导出数据库表到XLS文件目录 1. 前言 2. 相关知识 2.1 导出数据查询代码 2.2ADOX.Catalog 2.3 系统表 3. 源码解析 1. 前言本例简析通过ACCESS VBA查询语句导出所有数据库表到XLS文件。 2. 相关知识 2.1 导出数据查询代码有四种方法，可选其中一种。其中D:\test.xls表示导入到D盘里，命名为test.xls；Sheet1是工... 阅读详情

...全文

RAGFlow核心引擎DeepDoc之PDF解析大起底本文深入解析RAGFlow中的deepdoc模块，重点介绍了pdf文档解析器的实现细节。deepdoc包含parser（文档解析器）和vision（视觉处理）两大核心功能，其中pdf解析是最复杂的部分。文章详细剖析了PdfParser类的设计架构，包含PlainParser（基础文本提取）、RAGFlowPdfParser（核心处理流水线）和VisionParser（视觉扩展）三个类，它们通过统一的__call__方法返回标准化结果。还具体讲解了初始化过程如何加载OCR引擎、布局识别模型、表格结构识别器等关阅读详情

flyland

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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

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

相关推荐