能否通过vb代码程序运行时创建ODBC的这种连接

最近作了个程序，使用的是VB,rdo方式，通过ODBC到access数据库。
当更换电脑或重装过后发现需要手动设置ODBC，
请问，能否通过vb代码程序运行时创建ODBC的这种连接呢？
如果有，请烦劳示例一下。

解决方案 »

  1.   

    '以下是连接SQL Server时为创建的数据源
      strAttribs = "Description=" & vbCr & _
                   "OemToAnsi=No" & vbCr & _
                   "SERVER=" & MyServer & vbCr & _
                   "Database=" & dbName & vbCr
      rdoEngine.rdoRegisterDataSource "Test", "SQL Server", True, strAttribs
      

  2.   

    有个比较麻烦的处理方法:修改系统注册表项,比如源名称为ODBCTest
    1.在HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources下添加一项目:ODBCTest
    ODBCTest,value为:"Microsoft Access Driver (*.mdb)"
    2.HKEY_CURRENT_USER\Software\ODBC\ODBC.INI添加一KEY:ODBCTest,在下面添加
    Database,driver等项目