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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!