将cn.Provider 设置为OraOLEDB.Oracle即可

解决方案 »

  1.   

    dim cn,cmd,cmdrc,driver_name,para driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True" set cn = server.CreateObject("adodb.connection") cn.open driver_name set cmd=server.CreateObject("adodb.command") set cmdrc=server.CreateObject("adodb.recordset")   cmd.CommandType = 1 set para = cmd.Parameters
      

  2.   

    Private Sub Command1_Click()    Dim conn As ADODB.Connection    Dim cmd As ADODB.Command    Dim rs As ADODB.Recordset        Set conn = New ADODB.Connection    conn.CursorLocation = adUseClient    conn.Open "Provider=MSDAORA.1;" & _                 "Password=qsun;User ID=qsun;" & _                 "Data Source=manu;"        Set cmd = New ADODB.Command    cmd.ActiveConnection = conn    cmd.CommandType = adCmdText