救命啊！！！老显示ADODB.Recordset 错误 '800a0bb9' 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突

gamerman 2009-08-29 03:38:27

写个一段代码，

conn.asp内容为：
<%
Const SqlUsernameForms = "aaa" 'SQL数据库用户名
Const SqlPasswordForms = "bbb" 'SQL数据库用户密码
Const SqlDatabaseNameForms = "ccc" 'SQL数据库名
Const SqlHostIPForms = "(local)" 'SQL主机IP地址。本地（指网站与数据库在同一台服务器上）可用“(local)”或“127.0.0.1”，非本机（指网站与数据库分别在不同的服务器上）请填写数据库服务器的真实IP）

Dim ConnForms
Dim PE_Forms_True, PE_Forms_False, PE_Forms_Now, PE_Forms_OrderType, PE_Forms_DatePart_D, PE_Forms_DatePart_Y, PE_Forms_DatePart_M, PE_Forms_DatePart_W, PE_Forms_DatePart_H
Sub OpenConnForms()
'On Error Resume Next
Dim ConnFormsStr
If SystemDatabaseType = "SQL" Then
ConnFormsStr = "Provider = Sqloledb; User ID = " & SqlUsernameForms & "; Password = " & SqlPasswordForms & "; Initial Catalog = " & SqlDatabaseNameForms & "; Data Source = " & SqlHostIPForms & ";"
Else
ConnFormsStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFileName)
End If
Set ConnForms = Server.CreateObject("ADODB.Connection")
ConnForms.open ConnFormsStr
If Err Then
Err.Clear
Set ConnForms = Nothing
Response.Write "数据库连接出错，请检查Conn1.asp文件中的数据库参数设置。"
Response.End
End If
If SystemDatabaseType = "SQL" Then
PE_Forms_True = "1"
PE_Forms_False = "0"
PE_Forms_Now = "GetDate()"
PE_Forms_OrderType = " desc"
PE_Forms_DatePart_D = "d"
PE_Forms_DatePart_Y = "yyyy"
PE_Forms_DatePart_M = "m"
PE_Forms_DatePart_W = "ww"
PE_Forms_DatePart_H = "hh"
Else
PE_Forms_True = "True"
PE_Forms_False = "False"
PE_Forms_Now = "Now()"
PE_Forms_OrderType = " asc"
PE_Forms_DatePart_D = "'d'"
PE_Forms_DatePart_Y = "'yyyy'"
PE_Forms_DatePart_M = "'m'"
PE_Forms_DatePart_W = "'ww'"
PE_Forms_DatePart_H = "'h'"
End If
End Sub

Sub CloseConnForms()
On Error Resume Next
If IsObject(ConnForms) Then
ConnForms.Close
Set ConnForms = Nothing
End If
Set regEx = Nothing
Set PE_Cache = Nothing
End Sub
%>

程序代码：

<%
dim rs
set rs = server.createobject("adodb.recordset")
sql = "SELECT * FROM czrk"
rs.open sql, connforms, 1, 1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
else
if rs.eof and rs.bof then
response.write "没有记录"
else
%>

提示如标题错误，错误的行数就是rs.open sql, connforms, 1, 1这句，是什么故障？

...全文