搜索整个数据库，找一段文字

作者：cg1 摘自：access911.net 录入：cg1 时间：2005-1-20 浏览人次：670

专题地址：http://access911.net/index.asp?u1=a&u2=72FAB31E17DCEAF3 如果需要更详细的评论或说明，请点击该地址。

简述：搜索整个数据库，找一段文字《ADO/DAO》

下列代码搜索整个 SQL SERVER 数据库，找所有 VarChar 字段，只要包含搜索字串的就报告。我在查看其他软件的结构时使用的一段代码，现在贴出来。

Function test2()
    SearchAllDatabase "xk"
End Function
Function SearchAllDatabase(strFind As String)
    Dim MyTableName As String
    Dim MyFieldName As String


    Dim MyDB As New ADOX.Catalog
    Dim MyTable As ADOX.Table
    Dim MyField As ADOX.Column
    Dim pro


    On Error GoTo Err_GetFieldDescription
    Dim strCnn As String
    strConn = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=SA;Initial Catalog=;Data Source="
    Dim Conn As New.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://access911.net/index.asp?u1=a&u2=72FAB31E17DCEAF3

上一篇：如何解决“TempMSysAccessObjects 表已存在”的问题

下一篇：如何使窗体居中？

2007年12月25日生成静态资料