社区
ASP
帖子详情
当记录为空的时候执行Rs.open strsql,Conn,1,1就会报错!
simonqsm
2003-10-16 09:40:29
当记录为空的时候,应该怎么写才行?谢谢!
...全文
61
5
打赏
收藏
当记录为空的时候执行Rs.open strsql,Conn,1,1就会报错!
当记录为空的时候,应该怎么写才行?谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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电子相册
VB电子相册 电子相册 1、数据库连接 Public
conn
As ADODB.
Conn
ection Public Sub conDB() Set
conn
= New ADODB.
Conn
ection
conn
.
Conn
ection
Str
ing = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App.Path & "\data\pic.mdb"
conn
.
Open
End Sub 2、登录模块 Dim loginTimes As Integer Private
rs
mc As ADODB.Recordset Private
rs
As ADODB.Recordset Public userName As
Str
ing Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOK_Click() Call login End Sub Private Sub Form_Activate() Call conDB Set
rs
mc = New ADODB.Recordset
rs
mc.Cu
rs
orLocation = adUseClient
rs
mc.
Open
"用户信息表",
conn
, 0, 1 'need to learn cbUserName.Clear While Not
rs
mc.EOF cbUserName.AddItem
rs
mc.Fields("用户名")
rs
mc.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
str
Sql
As
Str
ing userName = "" If Trim(cbUserName.Text) = "" Then MsgBox "用户名不用
为空
,请选择用户名!", vbOKOnly + vbExclamation, "警告" cbUserName.SetFocus Else
str
Sql
= "select * from 用户信息表 where 用户名='" & Trim(cbUserName.Text) & "'" Set
rs
= New ADODB.Recordset
rs
.
Open
str
Sql
,
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
Str
ing Dim
rs
As ADODB.Recordset Dim
rs
Num As Integer Dim nextNum As Integer Private Sub cbPic_Click()
str
= App.Path + "\" Set
rs
= New ADODB.Recordset Dim
str
Conn
As
Str
ing
str
Conn
= "select * from pic where name='" + Trim(cbPic.Text) + "'"
rs
.
Open
str
Conn
,
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 >
rs
Num - 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
.MoveFi
rs
t ' 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
rs
Num = 0 'MsgBox
rs
Num
rs
.MoveFi
rs
t While Not
rs
.EOF cbPic.AddItem
rs
.Fields("name")
rs
Num =
rs
Num + 1
rs
.MoveNext Wend cbPic.Text = "tu1"
rs
.Close End Sub
asp+access数据库操作代码.txt
' 与AccessDB相关的连接信息 ' 可以参照它建立您的数据库连接 Dim
conn
,
rs
,dbpath Set
conn
=Server.CreateObject("ADODB.
Conn
ection") Set
rs
=Server.CreateObject("ADODB.RecordSet") dbpath=Server.MapPath("mdb/db1.mdb")
conn
.
Open
"Driver={Microsoft Access Driver (*.mdb)};DBQ="&dbpath 读数据库相关操作 dim
str
sql
str
sql
="select * from stu_info"
rs
.
open
str
sql
,
conn
,1,1 '打开数据库,使用
str
sql
变量中的路径 if
rs
.EOF then response.write "no record at all" '
rs
.EOF遍历
记录
集
RS
中是否用数据,无数据返回真 else response.write "
" response.write "
" for i=0 to
rs
.Fields.Count-1'
rs
.Fields.Count-1
记录
集
RS
中的
记录
条数减去1 response.write "
"&
rs
.Fields(i).Name&"
" next
ASP中解决“对象关闭时,不允许操作。”的诡异问题……
在ASP中进行数据库操作时 代码如下:
rs
.
Open
str
sql
,
conn
,1,3 while not
rs
.eof //对象关闭时,不允许操作。 找了好久,最后在
str
sql
中发现问题所在…… 原因是: 这个
str
sql
= “exec ***”,用的是存储过程,而这个***存储过程中的最后加了一句“print @
sql
”,导致这个问题,注释掉就OK了…… 您可能感兴趣的文章:asp
sql
server
执行
存储过程返回
记录
集报对象关闭时不允许操作
SQL
Server ADODB.Recordset 错误“800a0e78”,对象关
设定请求的ID跳转,如果请求的ID
为空
或无ID请求就跳
<% '以下是设定请求的ID跳转,如果请求的ID
为空
或无ID请求就跳转到sitemap.html
str
id=Request("id") if
str
id="" or not isnumeric(
str
id) then Response.Redirect ("http://www.52steel.com/sitemap.html") response.End end if set
rs
=server.CreateObject("ADODB.Recordset")
str
Sql
="select id,biaoti,time,neirong from info where 2=2 and infono="&
str
id&""
rs
.
Open
str
Sql
,
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
str
biaoti =
rs
("biaoti")
str
time =
rs
("time")
str
neirong =
rs
("neirong") %>
<%=
str
biaoti%>
<%=
str
biaoti%>
<%=time%>
<%=neirong%>
关于VB6与Access数据库编程示例时。VB
rs
.
Open
str
SQL
,
conn
, 3, 3
报错
的一个解决方法。
在网上学习VB6与Access数据库编程时,遇到一个小问题, 程序往数据库里添加信息正常,但修改和删除时出现问题,提示:实时错误‘-2147217904(80040e10)’至少一个参数没有被指定值,图片如下: 点击“调试”代码定位在:
rs
.
Open
str
SQL
,
conn
, 3, 3,如下图所示: 其实我这个问题是因为数据库里没有"ID11"这个字段名字引起的。把"ID1
ASP
28,390
社区成员
357,068
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章