[求助]VB 链接orcal数据库 失败

[wani]

win7+VB6SP1+Oracle - OraClient11g，

ODBC数据源中的系统DNS已经测试成功，



但是在VB代码里怎么也过不了，求大侠指点：

Function conn_init() '打开数据库
    On Error Resume Next
    Set conn = Server.CreateObject("adodb.connection")
    '这里设定连接超时为10秒
    conn.ConnectionTimeout = 5
    '------下面的代码不知道怎么写，谢谢--------------
  '    'UFconn.Open "Provider=OraOLEDB.Oracle.1;Password=zhangsan123;Persist Security Info=True;User ID=zhangsan;Data Source=SD"

    UFconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SD;User Id=zhagsan;Password=zhangsan123;Integrated Security=no;"
    
    If UFconn.State = 0 Then 'TestConnection = True
       conn.Close
    Else 'TestConnection = False
    End If
    
End Function

谢谢~

[bcrun]

既然是ODBC，怎么会是Provider=Microsoft.Jet.OLEDB.4.0;

[wani]

Provider=MSDAORA.1;Data Source=10.10.72.56:1521/SDDATE;User ID=zhangsan;Password=zhangsan123; 我用这个也不行，不知道怎么做了

[vansoft]

为什么要用ODBC？连Oracle不需要啊。

[wani]

能闲时给写一下吗？ 找了好多资料，没弄好明白 谢谢~

[wani]

找到原因了，谢谢回复~