vb打包时，odbc的配置怎么安装.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 28 行

我不知道如何将odbc打包进去，但我有一个迂回的方法来解决“odbc打包”问题，就是使用rdo对象的rdoRegisterDataSource方法在程序内动态注册，这样就不存在“odbc打包”的问题了。具体方法如下： 
    rdoRegisterDataSource 方法示例 
    下面示例说明使用 rdoRegisterDataSource 方法建立新的 ODBC 数据源项。 
    Private Sub RegisterDataSource() 
    Dim en As rdoEnvironment 
    Dim cnTest As rdoConnection 
    Dim strAttribs As String 
    '建造关键字字符串。 
    strAttribs = "Description=" _ 
     & "SQL Server on server SEQUEL" _ 
     & Chr$(13) & "OemToAnsi=No" _ 
     & Chr$(13) & "SERVER=SEQUEL" _ 
     & Chr$(13) & "Network=DBNMPNTW" _ 
     & Chr$(13) & "Database=WorkDB" _ 
     & Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY" 
     
    '建立新的注册的 DSN。 
    rdoEngine.rdoRegisterDataSource "示例", _ 
     "SQL Server", True, strAttribs 
    '打开数据库。 
    Set en = rdoEngine.rdoEnvironments(0) 
    Set cnTest = en.OpenConnection( _ 
     dsname:="示例", _ 
     Prompt:=rdDriverNoPrompt, _ 
     Connect:="UID=;PWD=;") 
     
    End Sub 
<END>