论坛广场 › 源码分享 › 遍历sql server数据库中的所有表

阿杰 发表于 2013-1-10 16:30:43

遍历sql server数据库中的所有表

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Driver={SQL Server};Server=10.10.25.17;Database=bzk"
Set rs = cnn.OpenSchema(20)
While Not rs.EOF
If rs(3) = "TABLE" And rs(2) <> "PASS" Then
MsgBox (rs(2))
End If
rs.MoveNext
Wend

查看完整版本: 遍历sql server数据库中的所有表