当记录为空的时候执行Rs.open strsql,Conn,1,1就会报错！

simonqsm 2003-10-16 09:40:29

当记录为空的时候，应该怎么写才行？谢谢！

...全文

61 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

avonqin 2003-10-16

打赏
举报

strsql语句在数据库与在asp程序中在写法上有时是不同的
你把这条strsql写出来给我们看看？

Struggling 2003-10-16

打赏
举报

Rs.open strsql,Conn,1,1

if not rs.eof and not rs.bof then
'你写的操作记录集的语句
end if

lxqlogo0 2003-10-16

打赏
举报

Rs.open strsql,Conn,1,1

if not rs.eof then
'你写的操作记录集的语句
end if

simonqsm 2003-10-16

打赏
举报

但是我的strsql语句直接在数据库有写的时候是没有错误的！

avonqin 2003-10-16

打赏
举报

当纪录为空时，Rs.open strsql,Conn,1,1是不会报错的，只有你利用rs记录集输出数据时才报错。
Rs.open strsql,Conn,1,1报错是因为打不开纪录集，可能sql写错了或其他原因

VB电子相册电子相册 1、数据库连接 Public conn As ADODB.Connection Public Sub conDB() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App.Path & "\data\pic.mdb" conn.Open End Sub 2、登录模块 Dim loginTimes As Integer Private rsmc As ADODB.Recordset Private rs As ADODB.Recordset Public userName As String Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOK_Click() Call login End Sub Private Sub Form_Activate() Call conDB Set rsmc = New ADODB.Recordset rsmc.CursorLocation = adUseClient rsmc.Open "用户信息表", conn, 0, 1 'need to learn cbUserName.Clear While Not rsmc.EOF cbUserName.AddItem rsmc.Fields("用户名") rsmc.MoveNext Wend cbUserName.SetFocus tbPwd.Text = "" cbUserName.Refresh End Sub Private Sub Form_Unload(Cancel As Integer) conn.Close Set rs = Nothing End Sub Sub login() Dim strSql As String userName = "" If Trim(cbUserName.Text) = "" Then MsgBox "用户名不用为空，请选择用户名！", vbOKOnly + vbExclamation, "警告" cbUserName.SetFocus Else strSql = "select * from 用户信息表 where 用户名='" & Trim(cbUserName.Text) & "'" Set rs = New ADODB.Recordset rs.Open strSql, conn, 2, 2 If Trim(rs.Fields("密码")) = Trim(tbPwd.Text) Then rs.Close Me.Hide userName = Trim(cbUserName.Text) 'Load frmMain frmMain.Show Exit Sub Else MsgBox "密码不对，请重新输入！", vbOKOnly + vbExclamation, "警告" tbPwd.Text = "" tbPwd.SetFocus End If loginTimes = loginTimes + 1 If loginTimes = 3 Then MsgBox "密码错误已有3次，你不能进入系统！", vbOKOnly + vbQuestion, "提示" Unload Me End If End If End Sub 3、主模块 Private rs As ADODB.Recordset Dim stuNum As Integer Private Sub Form_Activate() Call conDB End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) conn.Close Set conn = Nothing End Sub Private Sub mnuAddPic_Click() frmAddPic.Show End Sub Private Sub mnuDeletePic_Click() frmDeletePic.Show End Sub Private Sub mnuShowpic_Click() frmShow.Show End Sub Private Sub mnuExit_Click() Unload Me End End Sub Private Sub mnuSMPic_Click() frmSMPic.Show End Sub Private Sub mnuUser_Click() Dim frm1 As New frmUser frm1.Show End Sub 4、显示图片模块 Dim str As String Dim rs As ADODB.Recordset Dim rsNum As Integer Dim nextNum As Integer Private Sub cbPic_Click() str = App.Path + "\" Set rs = New ADODB.Recordset Dim strConn As String strConn = "select * from pic where name='" + Trim(cbPic.Text) + "'" rs.Open strConn, conn, 0, 1 str = str + rs.Fields("address").Value 'MsgBox str Image1.Picture = LoadPicture(str) rs.Close End Sub Private Sub CmdNext_Click() nextNum = nextNum + 1 'MsgBox nextNum If nextNum > rsNum - 1 Then nextNum = 0 'MsgBox nextNum End If Dim temp As Integer temp = nextNum Set rs = New ADODB.Recordset rs.Open "pic", conn, 0, 1 ' rs.MoveFirst ' While Not rs.EOF And temp > 0 ' 'rs.MoveNext ' 'temp = temp - 1' ' Wend rs.Move (temp) str = App.Path + "\" str = str + rs.Fields("address").Value cbPic.Text = rs.Fields("name").Value Image1.Picture = LoadPicture(str) rs.Close End Sub Private Sub Form_Load() Call conDB str = App.Path + "\" nextNum = 0 Set rs = New ADODB.Recordset rs.Open "pic", conn, 0, 1 str = str + rs.Fields("address").Value Image1.Picture = LoadPicture(str) cbPic.Clear rsNum = 0 'MsgBox rsNum rs.MoveFirst While Not rs.EOF cbPic.AddItem rs.Fields("name") rsNum = rsNum + 1 rs.MoveNext Wend cbPic.Text = "tu1" rs.Close End Sub

在ASP中进行数据库操作时代码如下: rs.Open strsql,conn,1,3 while not rs.eof　　　　//对象关闭时,不允许操作。找了好久，最后在strsql中发现问题所在…… 原因是：这个strsql = “exec ***”，用的是存储过程，而这个***存储过程中的最后加了一句“print @sql”，导致这个问题，注释掉就OK了…… 您可能感兴趣的文章:asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作SQLServer ADODB.Recordset 错误“800a0e78”，对象关

<% '以下是设定请求的ID跳转，如果请求的ID为空或无ID请求就跳转到sitemap.html strid=Request("id") if strid="" or not isnumeric(strid) then Response.Redirect ("http://www.52steel.com/sitemap.html") response.End end if set rs=server.CreateObject("ADODB.Recordset") strSql="select id,biaoti,time,neirong from info where 2=2 and infono="&strid&"" rs.Open strSql,conn,3 if rs.EOF then rs.close set rs=nothing conn.close set conn=nothing Response.Redirect ("http://www.52steel.com/sitemap.html") response.end end if strbiaoti = rs("biaoti") strtime = rs("time") strneirong = rs("neirong") %> <%=<em>str</em>biaoti%>

<%=strbiaoti%>

<%=time%>

<%=neirong%>

在网上学习VB6与Access数据库编程时，遇到一个小问题，程序往数据库里添加信息正常，但修改和删除时出现问题，提示：实时错误‘-2147217904（80040e10）’至少一个参数没有被指定值，图片如下：点击“调试”代码定位在：rs.Open strSQL, conn, 3, 3，如下图所示：其实我这个问题是因为数据库里没有"ID11"这个字段名字引起的。把"ID1

ASP

28,390

社区成员

357,068

社区内容

近7日
近30日
至今

加载中

试试用AI创作助手写篇文章吧

"&rs.Fields(i).Name&"