社区
VB基础类
帖子详情
ADO中的adCmdTable和adCmdTableDirect有什么区别呢?
shb
2000-07-24 04:33:00
我对ADO中RECORDSET.OPEN参数中的OPTIONS很糊涂,哪位能告之一二?
...全文
336
3
打赏
收藏
ADO中的adCmdTable和adCmdTableDirect有什么区别呢?
我对ADO中RECORDSET.OPEN参数中的OPTIONS很糊涂,哪位能告之一二?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shb
2000-07-26
打赏
举报
回复
MSDN中也是这样说的,不过我还是不太明白,adCmdTable和adCmdTableDirect不是都可以返回记录集吗?将CommandText看作SQL查询或是表名有什么不同?
Tyro
2000-07-24
打赏
举报
回复
adCmdTable返回根据sql语句查询而返回的记录集
adCmdTableDirect返回指定表名的所有记录
huntout
2000-07-24
打赏
举报
回复
adCmdText 將 CommandText 視為指令的文字定義或預存程式
adCmdTable 將 CommandText 視為資料表名稱,其資料行由內部產生之 SQL 查詢所傳回
adCmdTableDirect 將 CommandText 視為資料表名稱,其資料行全部被傳回
adCmdStoredProc 將 CommandText 視為預存程序
AdCmdUnknown 預設值‧未知的 CommandText 屬性的指令型態
AdCommandFile 將 CommandText 視為永久性 Recordset 的檔案名稱
AdExecuteNoRecords 表示 CommandText 是不傳回資料列的指令或預存程序 (例如只插入資料的指令)若擷取到任何資料列,它們將被放棄而不被傳回‧它經常和 adCmdText 或 adCmdStoredProc 連合使用
网上图书销售数据库+ASP
<% BookIDList = Session("BookIDList")'session(BookIDList)第一次运行为空
AB
ookID = Split(Request("bookID"), ", ")'
AB
ookID数组存入的是图书的id' For I=0 To UBound(
AB
ookID)'显示数组的最大维数 If Len(BookIDList) = 0 Then BookIDList = "'" & request("bookID") & "'" ElseIf InStr( BookIDList, request("bookID")) 您的购物车为空! 您还没有选购任何书籍,您的购物车为空! <% if request.Form("jiezhang")="保存订单" then response.Redi
rect
("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.Redi
rect
"buycarempty.asp" end if %> 查看购物车 function stand(){ window.close();} 书号 书 名 单价 数量 金额 移去 <% sl = Request( "sl"&i) If sl
adonly="yes" style="border-left:none;border-right:none;border-top:none"> (元)
adonly="yes" style="border-left:none;border-right:none;border-top:none"> (元)
合计金额:
adonly="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.Parameters(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) values ('"&_ orderid&"','"&bookID&"',"&paSL&","&booksum&")" set rs1=cnn.execute(sql2) i=i+1 rs.movenext wend for each parm in objCmd.Parameters 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/c
ab
s/flash/swflash.c
ab
#version=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_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code 网站首页 查看购物车 会员登录 管理员登录 书号 书名 出版社 图书类型 作者 等于 Like 查询图书库存量 书号 书名 图书类型 等于 Like <% If (Request("cValue") "" and Request("sField") "") Then If (Request("cValue") "") Then session("INvalue") = Request("cValue") End If session("pBookName") = "BookName" If (Request("sField") "") Then session("pBookName") = Request("sField") End If session("pBookName")=Replace(session("pBookName"), "'", "''") session("INvalue")=Replace(session("INvalue"), "'", "''") 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("INvalue") + "'" else sql = "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "&_ session("pBookName") & " Like '%" & session("INvalue") & "%'" 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,"","resiz
ab
le
=yes,scrollbars=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 pagers_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") strsql="select * from tb_member where userid='"&username1&"'" rs.open strsql,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.Redi
rect
("memberlogin.asp") %> 会员登录 function chkfields(){ 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,"","scrollbars=yes,resiz
ab
le
=yes,width=700,height=600"); } AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/c
ab
s/flash/swflash.c
ab
#version=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_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code 网站首页 查看购物车 会员登录 管理员登录 <% if session("msg1")"" then response.write session("msg1") else response.write "用户登录" end if %> I D: 密 码: 用户 , 您已成功登录
会员注册成功 祝贺您,已经注册成功! 您的会员ID号为:[ ] 密码为: [ ] 请记好! 单击“返回”按钮保存订单信息。
rect("buycarempty.asp") Else session("BookIDList")= BookIDList Response.Redi
rect
"buycarsee.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.Redi
rect
("userlogin.asp") else set rs=server.CreateObject("
ado
db.recordset") strsql="select * from tb_operator where operatorname='"&username1&"'" rs.open strsql,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.Redi
rect
("userlogin.asp") end if end if end if response.Redi
rect
("operatorlogin.asp") %> 管理员登录 function chkfields(){ 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/c
ab
s/flash/swflash.c
ab
#version=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_Version=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 pagers.pagecount then %>
下一页
最后一页 <% else response.write "您没有购书记录!" end if %> <% If (Request("cValue") "" and Request("sField") "") Then If (Request("cValue") "") Then session("INvalue") = Request("cValue") End If session("pBookName") = "BookName" If (Request("sField") "") Then session("pBookName") = Request("sField") End If session("pBookName")=Replace(session("pBookName"), "'", "''") session("INvalue")=Replace(session("INvalue"), "'", "''") 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("INvalue") + "'" else sql = "SELECT isbn, bookname, author, price FROM tb_book WHERE "&_ session("pBookName") & " Like '%" & session("INvalue") & "%'" 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,"","resiz
ab
le
=yes,scrollbars=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 pagers_search.pagecount then %>
下一页
最后一页 无符合条件的记录!
ADO
三大对象
1.Connection对象 属性 属性名称 数据类型和用途 Attributes 可读写Long类型,通过两个常数之和指定是否使用保留事务(retainning transactions)。常数adXactCommitRetaining表示调用CommitTrans方法时启动一个新事务;常数adXact
Ab
ortRetaning表示调用RollbackTrans方法时启动一个新事
ADO
Command 对象
ADO
Command 对象用于执行面向数据库的一次简单查询。此查询可执行如创建、添加、取回、删除或更新记录等动作。 如果该查询用于取回数据,此数据将以一个Recordset对象返回。这意味着被取回的数据能够被Recordset对象的属性、集合、方法或事件进行操作。 Command对象的主要特性是邮能力使用存储查询和带有参数的存储过程 属性
ADO
属性
Ab
solutePage 属性 指定当前记录所在的页。 设置和返回值 设置或返回从 1 到 Recordset 对象 (PageCount) 所含页数的长整型值,或者返回以下常量。 常量 说明 AdPosUnknown Recordset 为空,当前位置未知,或者提供者不支持
Ab
solutePage 属性。 AdPosBOF 当前记录指针位于 BOF(即 BO
VB备忘录(21)
ADO
概念
ADO
是一个接口,它的主要功能就是让你忘记复杂的内部操作,用这个接口来操作数据库。 用户
ADO
O
LED
BODBC各种数据库 如上所示,用户通过
ADO
,与O
LED
B相连,O
LED
B再与驱动ODBC相连,最后自动连接到各种的数据库,完成与数据库的通信。 只须记住:
ADO
与各种数据库打交道即可。 用户
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章