怎样把SQL数据库中的数据表名加入 Datalist控件中
[解决办法]
'┏〓〓〓〓〓〓〓〓〓 GetMdbTableSz,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'获取mdb数据库中所有表对象的名称
Function GetMdbTableSz(Optional GetType As String = "TABLE")
'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
'--需要什么函数或功能，可以联系我。
'版权所有，请保留作者信息.QQ：2605961812
'如需商业用途请联系作者
On Error GoTo Err2
Dim TableSet As New ADODB.Recordset
Dim Sz
ReDim Sz(0)
If StrConv(GetType, vbLowerCase) = "all" Then
Set TableSet = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty))
Else
Set TableSet = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, GetType))
End If
Dim I As Integer
'类型：[" & TableSet("table_type") & "] " & TableSet("table_name")
While Not TableSet.EOF
ReDim Preserve Sz(I)
If TableSet("table_name") <> "" Then
Sz(I) = TableSet("table_name")
I = I + 1
End If
TableSet.MoveNext
Wend
GetMdbTableSz = Sz
Exit Function
Err2:
End Function
'┗〓〓〓〓〓〓〓〓〓 GetMdbTableSz,end 〓〓〓〓〓〓〓〓〓┛
