Question

如何在VB程序中动态建立ODBC数据源DSN得连接

Answer 1

这个没有问题的，在系统初始化时，写注册表或者ini文件，如果未建立DSN连接，

Public Function SetupDSN()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Build keywords string.
strAttribs = "Description=" _
& "TestDb" _
& Chr$(13) & "DBQ=D:\stdio\tools\vcm\vcm.mdb" ' 请将数据库换成你自己的数据库
' Create new registered DSN.
rdoEngine.rdoRegisterDataSource "Example", _
"Microsoft Access Driver (*.mdb)", True, strAttribs 'Exsample 是DSN名称
End Function

Sub main()
'首先读注册表信息 或者INI文件中相应内容 及DSN是否建立的标志，如果未
'建立，则调用SetupDSN，然后写注册表或INI文件
if( not AlreadyReg() ) then '其中AlreadyReg 是通过注册表判断是否注册的函数
'DSNReg 是已经建立DSN后，写注册表的函数。
'至于写注册表可以引用Registry Acess Function
SetupDSN
DSNReg
end if

end sub