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

如何进行ODBC注册?2

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2002-11-20  浏览人次:2485


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

 

简述:如何进行ODBC注册?2

 


方法一:

请使用 DAO 的一个方法:RegisterDatabase

Sub RegisterDatabaseX()

    Dim dbsRegister As Database
    Dim strDescription As String
    Dim strAttributes As String
    Dim errLoop As Error

    '构建字符串
    strDescription = InputBox( "请键入数据库描述用以注册数据库")
    strAttributes = "Database=pubs" & _
        vbCr & "Description=" & strDescription & _
        vbCr & "OemToAnsi=No" & _
        vbCr & "Server=Server1"

    '更新注册表
    On Error GoTo Err_Register
    DBEngine.RegisterDatabase "Publishers", "SQL Server", _
        True, strAttributes
    On Error GoTo 0

    Msg.....................
...........

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

 


上一篇:如何用代码重新链接 ODBC 链接表?1

下一篇:如何禁用鼠标滚轮?

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