这段数据库连接代码为什么总是报找不到数据源的错误呢

zte_boy

Public Sub DBConnect()
   Dim StrCon
   Set Res = Createobject("ADODB.Recordset")
   Set Cmd = Createobject("ADODB.Command")
   Set Conn = createobject("ADODB.Connection")

   StrCon = "DRIVER=={Oracle in OraHome92}; SERVER=hotel_test ; UID=htl_ii ; PWD = htl_ii"

   Cmd.activeconnection = StrCon
   Cmd.CommandType = 1
End Sub

错误：
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

walker1020

关于如何连接数据库，论坛上已经有许多这方面 帖子，也有相应的解决方法了。楼主自己去搜索吧

getfly

楼上, 关于orcale数据库， 好像和其他的数据连接有些区别

liangjz

http://www.51testing.com/?170805 ... e_itemid_79692.html
可以参考

楼主可以检查
1)ODBC是否已经有ORACLE驱动
2)连接串的写法是否正确