20

错误 '80004005'未发现数据源名称并且未指定默认驱动程序cod_ado.inc,行 4

 <%
sub cod_AdoOpen(objConnection, rsCoursesList,dsn,rss)
    Set objConnection = Server.CreateObject("ADODB.Connection")
    objConnection.Open dsn
    Set rsCoursesList = Server.CreateObject("ADODB.Recordset")
    rsCoursesList.ActiveConnection = objConnection  
    rsCoursesList.CursorLocation = adUseClient
    rsCoursesList.CursorType = adOpenForwardOnly
    rsCoursesList.LockType = adLockReadOnly
    rsCoursesList.Source = rss
    rsCoursesList.Open
end sub
sub cod_AdoClose(objConnection, rsCoursesList)
    rsCoursesList.close
    objConnection.close
    set rsCoursesList = nothing
    set objConnection = nothing
end sub
%>

系统是WIN8 64位 ACCESS也是64位 DW是32位

求教是什么问题引起的啊

查看全部
bejing834346290
bejing834346290
2015/06/03 08:41
  • dw
  • 数据源
  • 点赞
  • 收藏
  • 回答
    私信

5个回复