7,712
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command5_Click()
'返回所有的表的名称--字段名称
Dim fileNo As Integer, i As Integer, j As Integer, ii As Integer, jj As Integer
Dim s1 As String
Dim tabName(0 To 10000) As String, colName(0 To 10000) As String
DataPath = App.Path & "\" & Format(Date, "YYYYMMDD") & ".mdb"
cn.ConnectionString = DataConnectString(DataPath, passStr)
cn.Open
Set rs = cn.OpenSchema(adSchemaTables) '表名
i = 0
Do While Not rs.EOF
Debug.Print rs!table_name
tabName(i) = rs!table_name
i = i + 1
rs.MoveNext
Loop
rs.Close
Set rs = cn.OpenSchema(adSchemaColumns) '字段
j = 0
While Not rs.EOF
Debug.Print rs!COLUMN_NAME
colName(j) = rs!COLUMN_NAME
j = j + 1
rs.MoveNext
Wend
rs.Close
cn.Close
If Dir(App.Path & "\Tables.txt", vbNormal) = "" Then
Open App.Path & "\Tables.txt" For Output As #1 '创建一个文本文件
Close #1
End If
If Dir(App.Path & "\Column.txt", vbNormal) = "" Then
Open App.Path & "\Column.txt" For Output As #1 '创建一个文本文件
Close #1
End If
If Dir(App.Path & "\Tables.txt", vbNormal) <> "" Then
fileNo = FreeFile
Open App.Path & "\Tables.txt" For Output As #fileNo
For ii = 0 To i - 1
Write #fileNo, tabName(ii)
Next ii
Close #fileNo
End If
If Dir(App.Path & "\Column.txt", vbNormal) <> "" Then
fileNo = FreeFile
Open App.Path & "\Column.txt" For Output As #fileNo
For jj = 0 To j - 1
Write #fileNo, colName(jj)
Next jj
Close #fileNo
End If
End Sub