ConnStr = "DRIVER={Microsoft ODBC driver for oracle};SERVER=" & strDBName & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
一直使用上面这种方法,最近一台电脑总是提示错误,找了很多天也不知道什么原因,总是提示“未发现数据源名称,并且未指定默认驱动程序”,实在没办法了,换如下链接方式,成功解决。
Set oraDB = New ADODB.Connection
OraConstr = "Provider=OraOLEDB.Oracle.1;Password=" & strPassword & ";User ID=" & strUserID & ";Data Source=" & strDBName & ";Persist Security Info=False"
OraDB.CursorLocation = adUseServer
ConnDB.Open oraConstr