社区
数据库(包含打印,安装,报表)
帖子详情
遇到一个比较奇怪的问题,一个ado的连接的数据库,执行rs.fields(2).value = 2 ; rs.update 不能执行。
fzhfeng
2002-12-19 04:59:18
rs.fields(2) 是一个double类型
提示的错误是:类型班能提供所需的操作
...全文
73
5
打赏
收藏
遇到一个比较奇怪的问题,一个ado的连接的数据库,执行rs.fields(2).value = 2 ; rs.update 不能执行。
rs.fields(2) 是一个double类型 提示的错误是:类型班能提供所需的操作
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chenyu5188
2002-12-20
打赏
举报
回复
UP
_1_
2002-12-19
打赏
举报
回复
rs.open sql,1,3
laihua
2002-12-19
打赏
举报
回复
"2"
Joing
2002-12-19
打赏
举报
回复
rs 是不是以只读的形式打开的呢??
BenBenBoy
2002-12-19
打赏
举报
回复
数据库怎么定义的?
rs.Open了吗?
rs.AddNew了吗?
VB6.0
ADO
添加数字文本信息.rar
VB6.0
ADO
添加数字文本信息,演示如何添加数字或字符型数据,从
连接
数据库
、打开记录集、可添加数据到显示数据到表格中,演示了一系列的实现,是
一个
基础的VB与access操作的范例。这一切的
执行
,需要从点击
一个
按钮开始: Private Sub Command1_Click() '
连接
数据库
con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Pe
rs
ist Security Info=False;Initial Catalog=book" '打开记录录,可添加
rs
.Open "select * from 书名 ", con,
adO
penKeyset, adLockOptimistic '开始添加数据
rs
.AddNew For i = 0 To 2
rs
.
Field
s(i) = Trim(Text1(i).Text) Next i For i = 3 To 5
rs
.
Field
s(i) = Val(Text1(i).Text) Next i MsgBox "成功添加数据", 48, "添加信息"
rs
.
Update
'表格显示书名数据表 Set MSHFlexGrid1.DataSource = con.Execute("select * from 书名")
网上图书销售
数据库
+ASP
<% BookIDList = Session("BookIDList")'session(BookIDList)第一次运行为空 ABookID = Split(Request("bookID"), ", ")'ABookID数组存入的是图书的id' For I=0 To UBound(ABookID)'显示数组的最大维数 If Len(BookIDList) = 0 Then BookIDList = "'" & request("bookID") & "'" ElseIf InStr( BookIDList, request("bookID")) 您的购物车为空! 您还没有选购任何书籍,您的购物车为空! <% if request.Form("jiezhang")="保存订单" then response.Redirect("checkout.asp") end if If Len(Session("BookIDList")) 0 Then sql = "Select * From tb_book Where isbn In (" &_ session("bookIDList") & ") Order By isbn" Set
rs
= cnn.Execute( sql ) else Response.Redirect "buycarempty.asp" end if %> 查看购物车 function stand(){ window.close();} 书号 书 名 单价 数量 金额 移去 <% sl = Request( "sl"&i) If sl
value= size="3" re
ado
nly="yes" style="border-left:none;border-right:none;border-top:none"> (元)
value= size="4">
value= size="6" re
ado
nly="yes" style="border-left:none;border-right:none;border-top:none"> (元)
合计金额:
value= size="10" re
ado
nly="yes"> (元) 清空购物车 <% session("mName")="" if request.Form("UserID")"" and request.Form("userPWD")"" then session("ID1")=request.Form("UserID") session("PWD")=request.Form("userPWD") set
rs
=Server.CreateObject("
ADO
DB.RecordSet") sql="SELECT userid, password FROM tb_member WHERE userid='" & session("ID1")&"'" set
rs
=cnn.execute(sql) if
rs
.eof then %> alert("登录失败!"); window.history.back(); window.location.href="checkoutok.asp" alert("您输入的会员密码错误,请重新输入!"); history.back(); 保存订单信息 //检验会员ID号和密码 function check(){ if (form1.userID.
value
==""){ alert("请输入会员ID号!");form1.userID.focus();return;} if (form1.userPWD.
value
==""){ alert("请输入会员密码!");form1.userPWD.focus();return;} form1.submit();} 如果您还不是我们的会员,请单击“注册”按钮注册会员! 会员ID号: 注册 您的密码: 以下是您选购的图书: 书号 书名 单价 数量 金额 (元) (元) 订单保存成功! <% '返回订单号等信息 orderid=objCmd.Paramete
rs
(3) sql1 = "Select * From tb_book Where isbn In (" & session("checkBook") & ")" Set
rs
= cnn.Execute( sql1 ) ASL1="" ASL1=split(session("sl"),",") i=0 sum=0 shuliang=0 while not
rs
.eof bookID=
rs
("isbn") price=
rs
("price") paSL=cInt(ASL(i)) booksum=cdbl(
rs
("price"))*ASL(i) sql2="insert into tb_orderdetail(orderid,isbn,num,money)
value
s ('"&_ orderid&"','"&bookID&"',"&paSL&","&booksum&")" set
rs
1=cnn.execute(sql2) i=i+1
rs
.movenext wend for each parm in objCmd.Paramete
rs
if parm.name="parID" then name1="会员ID" end if if parm.name="sum" then name1="订货金额" end if if parm.name="oDate" then name1="订购日期" end if if parm.name="aa" then name1="订单号" end if Response.Write name1 &":"& trim(parm) if name1="订货金额" then response.write "元" else response.write "" end if next %> 订单已经成功保存,欢迎下次惠顾! 网上图书订购 AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ve
rs
ion=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.
ado
be.com/shockwave/download/download.cgi?P1_Prod_Ve
rs
ion=ShockwaveFlash','movie','../images/banner' ); //end AC code 网站首页 查看购物车 会员登录 管理员登录 书号 书名 出版社 图书类型 作者 等于 Like 查询图书库存量 书号 书名 图书类型 等于 Like <% If (Request("c
Value
") "" and Request("s
Field
") "") Then If (Request("c
Value
") "") Then session("IN
value
") = Request("c
Value
") End If session("pBookName") = "BookName" If (Request("s
Field
") "") Then session("pBookName") = Request("s
Field
") End If session("pBookName")=Replace(session("pBookName"), "'", "''") session("IN
value
")=Replace(session("IN
value
"), "'", "''") If (Request("mode") "") Then session("
rs
_mode") = Request("mode") End If end if if session("
rs
_mode")"" then if session("
rs
_mode")="==" then sql= "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "_ + session("pBookName") + " = '" + session("IN
value
") + "'" else sql = "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "&_ session("pBookName") & " Like '%" & session("IN
value
") & "%'" end if else sql="SELECT isbn, bookname, kind, price,total FROM tb_total " end if set
rs
_search=Server.CreateObject("
ADO
DB.RecordSet")
rs
_search.open sql,cnn,1,3 %> function newwin1(url){ var newwin=window.open(url,"","resizable=yes,scrollba
rs
=yes,width=700,height=400"); newwin.focus(); return false; } 书号 书 名 图书类型 价格 库存 alert("无符合条件的图书!") history.back(1) <%response.end() end if '分页'
rs
_search.pagesize=7 page=CLng(Request("page")) if page <% if page1 then %>
第一页
上一页 <%end if if page
rs
_search.pagecount then %>
下一页
最后一页 无符合条件的记录! <% response.Expires=-1 username1=trim(request("username")) userpass1=trim(request("userpass")) if username1="" or userpass1="" then session("passed1")="" session("msg1")="用户ID和密码
不能
为空" else set
rs
=server.CreateObject("
ado
db.recordset") st
rs
ql="select * from tb_member where userid='"&username1&"'"
rs
.open st
rs
ql,cnn,3,3 if
rs
.eof then session("passed1")="" session("msg1")="用户ID不存在" else if
rs
("PassWord")userpass1 then session("passed1")="" session("msg1")="密码错误" else session("passed1")=true session("msg1")="" session("ID1")=username1 session("username1")=
rs
("UserName") end if end if end if response.Redirect("memberlogin.asp") %> 会员登录 function chk
field
s(){ if(document.myform.username.
value
==''){ alert("用户ID
不能
为空"); document.myform.username.focus(); return false; } if(document.myform.userpass.
value
==''){ alert("用户密码
不能
为空"); document.myform.userpass.focus(); return false; } return true; } function look(id){ window.open("orderhistory.asp?ID="+id,"","scrollba
rs
=yes,resizable=yes,width=700,height=600"); } AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ve
rs
ion=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.
ado
be.com/shockwave/download/download.cgi?P1_Prod_Ve
rs
ion=ShockwaveFlash','movie','../images/banner' ); //end AC code 网站首页 查看购物车 会员登录 管理员登录 <% if session("msg1")"" then response.write session("msg1") else response.write "用户登录" end if %> I D: 密 码: 用户 , 您已成功登录
value="查 看 订 单" name="b2" class="btnLogin" onClick="look('')"> 会员注册成功 祝贺您,已经注册成功! 您的会员ID号为:[ ] 密码为: [ ] 请记好! 单击“返回”按钮保存订单信息。
value=" 网上图书订购 AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ve
rs
ion=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.
ado
be.com/shockwave/download/download.cgi?P1_Prod_Ve
rs
ion=ShockwaveFlash','movie','../images/banner' ); //end AC code 网站首页 查看购物车 会员登录 管理员登录 此处显示 id "content" 的内容 此处显示 id "footer" 的内容 <% ArrcheckBook= Split(Session("CheckBook"),", ") BookIDList="" For I=0 To UBound(ArrcheckBook)'显示数组的最大维数 cclickBookID="'"&request("clickBookID")&"'" If ArrcheckBook(i)cclickBookID Then If Len(BookIDList) = 0 Then BookIDList =ArrcheckBook(i) Else BookIDList = BookIDList & ", " & ArrcheckBook(i) End If end if Next If len(BookIDList)=0 Then session("BookIDList")= BookIDList Response.Redirect("buycarempty.asp") Else session("BookIDList")= BookIDList Response.Redirect "buyca
rs
ee.asp" end if %> <% response.Expires=-1 username1=trim(request("username")) userpass1=trim(request("userpass")) 'response.write 41 'response.End() if username1="" or userpass1="" then session("passed")="" session("msg")="请您先登录再进来!" 'response.Redirect("userlogin.asp") else set
rs
=server.CreateObject("
ado
db.recordset") st
rs
ql="select * from tb_operator where operatorname='"&username1&"'"
rs
.open st
rs
ql,cnn,3,3 if
rs
.eof then session("passed")="" session("msg")="管理员名称不存在" else if
rs
("password")userpass1 then session("passed")="" session("msg")="密码错误" else session("passed")=true session("msg")="" session("username")=
rs
("operatorname") 'response.Redirect("userlogin.asp") end if end if end if response.Redirect("operatorlogin.asp") %> 管理员登录 function chk
field
s(){ if(document.myform.username.
value
==''){ alert("管理员名称
不能
为空"); document.myform.username.focus(); return false; } if(document.myform.userpass.
value
==''){ alert("管理员密码
不能
为空"); document.myform.userpass.focus(); return false; } return true; } function take(){ window.open("lookup.asp","图书库存查询"); } AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ve
rs
ion=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.
ado
be.com/shockwave/download/download.cgi?P1_Prod_Ve
rs
ion=ShockwaveFlash','movie','../images/banner' ); //end AC code 网站首页 查看购物车 会员登录 管理员登录 <% if session("msg")"" then response.write session("msg") else response.write "管理员登录" end if %> 管理员: 密码: 管理员 , 登录成功 的订单一览表 的订单一览表 订单号书号书名价格数量金额购书日期 <%
rs
.pagesize=7 page=CLng(Request("page")) if page 第一页 <% end if if page1 then %> 第一页
上一页 <%end if if page
rs
.pagecount then %>
下一页
最后一页 <% else response.write "您没有购书记录!" end if %> <% If (Request("c
Value
") "" and Request("s
Field
") "") Then If (Request("c
Value
") "") Then session("IN
value
") = Request("c
Value
") End If session("pBookName") = "BookName" If (Request("s
Field
") "") Then session("pBookName") = Request("s
Field
") End If session("pBookName")=Replace(session("pBookName"), "'", "''") session("IN
value
")=Replace(session("IN
value
"), "'", "''") If (Request("mode") "") Then session("
rs
_mode") = Request("mode") End If end if if session("
rs
_mode")"" then if session("
rs
_mode")="==" then sql= "SELECT isbn, bookname, author, price FROM tb_book WHERE "_ + session("pBookName") + " = '" + session("IN
value
") + "'" else sql = "SELECT isbn, bookname, author, price FROM tb_book WHERE "&_ session("pBookName") & " Like '%" & session("IN
value
") & "%'" end if else sql="SELECT isbn, bookname, author, price FROM tb_book " end if set
rs
_search=Server.CreateObject("
ADO
DB.RecordSet")
rs
_search.open sql,cnn,1,3 %> function newwin1(url){ var newwin=window.open(url,"","resizable=yes,scrollba
rs
=yes,width=700,height=400"); newwin.focus(); return false; } 书号 书 名 作 者 原价 现 价 购物 alert("无符合条件的图书!") history.back(1) <%response.end() end if '分页'
rs
_search.pagesize=7 page=CLng(Request("page")) if page
<% if page1 then %>
第一页
上一页 <%end if if page
rs
_search.pagecount then %>
下一页
最后一页 无符合条件的记录!
rs
.
update
mysql_
ADO
:
rs
.addNew,
rs
.delete和
rs
.
update
--MySql数据
在下面的
ADO
(ActiveX数据对象)示例中,创建了表my_
ado
,并演示了
rs
.addNew、
rs
.delete和
rs
.
update
的用法。Private Sub myodbc_
ado
_Click()Dim conn As
ADO
DB.ConnectionDim
rs
As
ADO
DB.RecordsetDim fld As
ADO
DB.
Field
Dim sql As String'conne...
mysql addnew_
ADO
:
rs
.addNew,
rs
.delete和
rs
.
update
--MySql数据
在下面的
ADO
(ActiveX数据对象)示例中,创建了表my_
ado
,并演示了
rs
.addNew、
rs
.delete和
rs
.
update
的用法。Private Sub myodbc_
ado
_Click()Dim conn As
ADO
DB.ConnectionDim
rs
As
ADO
DB.RecordsetDim fld As
ADO
DB.
Field
Dim sql As String'conne...
RS
.GETROWS使用详解
ADO
也提供更有效率方法來取得資料。GetRows 方法傳回一個二維的陣列變數,每一行對應Recordset中的一筆記錄,且每一列對應到記錄中的欄位。此方法的語法如下:varArray =
rs
.GetRows([Rows], [Start], [
Field
s])Rows 是要讀取記錄的數量;如果想要取得Recordset所有記錄,可用-1或省略此參數。Start 是指出第一個被讀取記錄的書籤;也
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章