VB6 自动创建 ODBC

早期的一些VB6 程序，由于使用不同的方法，或使用Crystal Report, 需要用到ODBC，但却需要手工提前建立。
而对大量用户使用时，需要维护人员到不同的电脑上建立ODBC, 其实上用代码的方法可以很简单的进行自动创建。

 

   ' 必须先引用 DAO

 

    dim str as string

 

    '注册的字串
    str1 = "Description=Create ODBC for mySYS"
    str1 = str1 & vbCr & "Server=192.168.1.36"
    str1 = str1 & vbCr & "Database=mySYSDB"
    str1 = str1 & vbCr & "OEMtoAnsi=NO"
    '注册ODBC源
   
    DAO.DBEngine.RegisterDatabase "mySYS_ODBC", "SQL Server", True, str1