<<< 返回 access911.net 编程静态资料库索引页

搜索整个数据库,查找一段文字字符串

 

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


专题地址:http://access911.net/fixhtm/72FAB31E17DCEAF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:搜索整个数据库,找一段文字《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=;.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB31E17DCEAF3.htm

 


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

下一篇:如何使窗体居中?

2017年2月22日生成静态资料