说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在线等待(100)往一个表的字段赋值,怎么不行啊!

编辑:说三道四文库 发布时间:2017-09-24 09:47
HTML文档下载 WORD文档下载 PDF文档下载


Dim mycon As ADODB.Connection
Dim myrs As New ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\student.mdb"
mycon.Open
myrs.CursorLocation = adUseServer
myrs.Open "select * from TStuScore where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'", mycon, adOpenDynamic, adLockPessimistic
For i = 0 To myrs.RecordCount
myrs.Fields("课程") = 计算机
myrs.Update
myrs.MoveNext
next
能知道提出的错误提示么???、
我感觉你是想在数据库中的 课程  字段里 加上 计算机 一项吧???
如果是那样你在前面 加一个 myrs.addnew

Dim mycon As ADODB.Connection
Dim myrs As New ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\student.mdb"
mycon.Open
myrs.CursorLocation = adUseServer
myrs.Open "select * from TStuScore where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'", mycon, adOpenDynamic, adLockPessimistic
For i = 0 To myrs.RecordCount
myrs.addnew  <-------------------------这里加
myrs.Fields("课程") = 计算机
myrs.Update
myrs.MoveNext            
next
 
Dim mycon As ADODB.Connection
Dim myrs As New ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\student.mdb"
mycon.Open
mycon.execute "update TStuScore set 课程 = "计算机" where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'" 
1,应确认是否检索到记录(用 myrs.Recordcount)
2。myrs.Fields("课程") = 计算机 中 计算机是否是变量名,不是应该为”计算机“

何不用控件:
1。设置ADODB控件属性(建立数据库连接 )
2。设置ADODB的RECORDSOURCE属性为”select * from TStuScore where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'"“
3。赋值(adodc1为ADODB控件名)
   for i=1 to adodc1.recourdcount
    with adodc1.recordset
         .Fields("课程")=”计算机“
         .uodate
         .movenext
    end with
  next  i  
myrs.Fields("课程") = “计算机”!!!!!
myrs.Update
myrs.MoveNext

直接用mycon.execute("update TStuScore set 课程='jsj' where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'" ")
错了,把"计算机"改为'计算机'
记录是绝对检索到了的,就是myrs.Fields("课程") = 计算机 有问题,也没有提示的!myrs.Fields(4).Value = Combo3.Text  应该是这样的,就是添不进去!


不是要插入一个记录,而是要在已有的记录中的课程字段的值修改为 combo3.text
WizardBear(飞猫_重起机器)的方法才是真正系统程序的标准做法,请参考
Dim mycon As ADODB.Connection
Dim myrs As New ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\student.mdb"
mycon.Open
myrs.CursorLocation = adUseServer
myrs.Open "select * from TStuScore where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'", mycon, adOpenDynamic, adLockPessimistic

do until myrs.eof or myrs.bof
   myrs!课程 = "计算机"
   myrs.Update
   myrs.MoveNext
loop
mywhsw(bamboo) 的方法好。
Dim mycon As ADODB.Connection
Dim myrs As New ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\student.mdb"
mycon.Open
myrs.CursorLocation = adUseServer
myrs.Open "select * from TStuScore where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'", mycon, adOpenDynamic, adLockPessimistic
For i = 0 To myrs.RecordCount-1 ←这里!
myrs.Fields("课程") = "计算机" ←这里!
myrs.Update
myrs.MoveNext
next
不是要插入一个记录,而是要在已有的记录中的课程字段的值修改为 combo3.text,如果是这样的话,那么
Dim mycon As ADODB.Connection
Dim myrs As New ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\student.mdb"
mycon.Open
myrs.CursorLocation = adUseServer
myrs.Open "select * from TStuScore where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'", mycon, adOpenDynamic, adLockPessimistic

do until myrs.eof
   myrs!课程 = combo3.text
   myrs.Update
   myrs.MoveNext
loop

不需要For i = 0 To myrs.RecordCount这一句。
黑客们盯上了卫星,IOActive的惊人发现 开发汽车应用之前,你必须了解的7件事 埃森哲:智能电视潮流,势不可挡 直接拿来用!Facebook移动开源项目大合集 高大上Hadoop技术培训:Hadoop在企业中的应用实战 【走近讲师】新浪丛磊:通过MAE构建企业内部私有PaaS平台 API增长新趋势 消息应用类独占鳌头 软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” 这是个神奇的国度:细数五大印度裔IT牛人CEO Atmel CMO Sander Arts眼中的创客运动 Unity“三巨头”:全心全意为开发者服务 全球移动广告现状报告:哪种平台、应用最赚钱? 《近匠》Smart Wallit,钱包找不到了?给它“打个电话”吧 Mozilla新CTO:JavaScript、 Firefox OS专家Andreas Gal 李彦宏发布百度大数据引擎,及与谷歌、亚马逊等类似项目对比 大数据领域,实时打击欺诈犯罪的4个战场 一周消息树:谷歌Project Ara,将开启下一个智能手机时代 数据恢复服务商的6个最佳实践 【走近讲师】谭晓生:魔高一尺道高一丈,360基于大数据的网络攻击检测 一周热点:摩尔定律让位于贝索斯定律 阿里巴巴集团CTO王坚确认出席第六届中国云计算大会 【走近讲师】青云甘泉:混合云的构建及其对企业的帮助 RadiumOne创始人兼CEO因家暴被公司解雇 3D打印狂潮:可检测皮肤疾病的低价手机显微镜 浅谈导航设计,开发者必备的十大实用技巧 【云先锋 41】上海越诚:基于云服务的建站类iService软件超市 董西成:Hadoop将在高速发展和完善中扩大优势! 【走近讲师】 华云数据郁珉:公有云市场八仙过海 价格不是唯一标准! Facebook、Twitter、Google移动广告之争 高分(答者有分,不够另开贴)-GSM抄表系统的短消息网关和数据库连接问题 不管ie窗口大小如何,隐藏层显示后总是居于窗口正中,谁有这样的脚本?? GetWindowThreadProcessId? 为什么找不到程序入口点??? 如何去掉字串右边(或者中间)的空格? 哪位能全面的解释一下“数据驱动”。 高分寻找php 上传 文件脚本 totodo大哥进来一下! 100分求解:ActiveX控件在网页中用,如何使弹出的第二个form一直居于网页上层?--在线等 一个w2k server网页显示的问题 关于日期的处理,请教!! 急!水晶报表8.5的字符串类型仅仅支持255位,要显示长字串如何解决? 祈祷sars早点被消灭! 怎么使一个弹出窗口使中在前面!!?? 制作网页时遇到的字体问题 能否把sybase的tempdb数据库中的分配的日志空间删除或者转为数据? 急!水晶报表8.5的字符串类型仅仅支持255位,要显示长字串如何解决? 新建asp应用程序必须联在网上么? 祈祷sars早点被消灭! JAVA做硬件可以吗? 偶然发现的一个网址,有兴趣大家可以看看 Memo控件的自动存盘问题? 那里有vba sdk 下载啊? 寻书!!! 在DELPHI7.0中,为什么找不到QReport组件页。 推荐一本详细讲述"进程"、"线程"的书,最好是MFC的。 基于XML的SVG应用问题,十万火急!!! 我的软件超过3000个人下载,开心放分. 请详细介绍公共语言运行时(CLR) 已经获得视图的句柄,如何通过该句柄进一步得到视图的指针? 求教(急):对Excel或word操作时总是报同一个异常?? 急,安装Red Hat Linux 9后,却无法进入系统 惨了惨了,不小心改了boot.ini现在进不去了,救救我吧! 怎样将一个文件写成XML 有水用过ucd-snmp开发包,高分要多少都给 exchange2000做workflow的细节问题,急 各位大哥帮帮忙 谁能帮我把这些sql语句转换为OleDb,在线等,很急!谢谢 为什么装了windowsxp 后,在windows 98 里的很多东西都看不到呢? 又一菜鸟小问题!呵呵 网关的问题,请教: 关于StatusBar的AutoHint问题 pb8编译为机器码时,为何其他的库未编译为dll文件 请教一个PB9的问题 哪位用ACCESS和ASP的高手过来看看? 急救!!!!HELP!!!! 一个鼠标画图的小问题(关于刷新整个客户区)!!! 很急的问题~!!!高手赐教!!! 怎么打印表格? 如何改变text field的高度 急用,我想把Datagrid中的数据导到excel中,怎样才能才能出现路径选择的对话框 复述《负荆请罪》只要一句话啊! 根据象棋马走日字的游戏规则,马在平面直角坐标系中,马在(2,1)的位置,则马可能到达的点的坐标有 大白鲨怎么叫的? 复述《负荆请罪》这个小故事.只要一句话啊! 2.3.4.5.6.7.8的日积月累的解释 王尔德说的是:【Anybody can write history;only a great man can make it】?还是【Anybody can make history.,only a great man can write it】?若是第一句,那么 “write history”要怎么解释?是“书写历史”?那“make it 蒲公英的绒球是花吗绒球是花还是种子?如果不是花那他得花是什么样子的?像雏菊一样的吗?还是很普通的小花?先开花后结种子的话,什么时候开花什么时候结种子?绒球有别的颜色吗? 50256保留2位有效数字 把苍蝇关在房间里,它会污染里面能喝的水吗刚才的事,我看电视的时候发现被子上有只苍蝇,打一下被子(谁敢用手拍苍蝇?),没飞走,用力打一下,被子下去了,后来电视看完了,上楼上网,后来听 蒲公英属植物的种子都是绒球的样子吗? “飘飘柔柔,丝丝水水”代表什么动物,猜十二生肖一动物.请认真思考后作答 房间里都是死苍蝇是什么原因夏天到了 我租的房间里都是死苍蝇,我晚上用蚊香的,我想这个跟用蚊香没有关系吧?而且我租的时候,房间的涂料都用了很久了 这个跟甲醛中毒没什么关系吧?谁能 杨氏之子这篇古文的意思 6、设z=(x^2)*ln(2xy),求z对x的一阶,二阶偏导数,和z对y的一阶,二阶偏导数 没有了虫子,世界会怎么样?全面的反映 水胶比(水:压浆剂)为0.28,总的压浆量为27m3,怎么计算每立方压浆剂用量?谢谢了 汤姆索亚历险记的问题 1.汤姆勇敢的在法庭上站出来作证,指出——才是杀害——医生的凶手,被冤枉的—释放2.汤姆希望改掉自己的一些不良习气,加入了镇上的“——————”这个组织,并 为什么虫子都淹不死呢 王大爷要用栅栏围成一个60平方米的长方形鸡舍.如果长方形的长和宽都是整米数,一共有多少种不同的围法?你认为那种围法最合适,为什么? 十二生肖中四脚最短的动物是什么?是四脚最小``````` Not only( ),but also a great thinker.A.was Lu xun a great writer B.was a great writer Lu xunC.a great writer was Lu Xun D.LU xun was a great writer 王大爷准备用420米长的栅栏围成一个长方形(一个长靠边),如果长是宽的三倍,这个养鸡场的长和宽各是多少?方程解 十二生肖中四脚动物有哪些? 猪肉 里有煮不死的虫吗? 蜘蛛吃鸟?什么蜘蛛可以吃鸟? 12生肖中哪种动物四脚长长,走路弯曲的 24 535 429 .保留三位有效数字. 大猩猩是世界力气最大人的几倍属于自然科学 口语交际 课本剧 1型糖尿病会影响眼睛吗?有什么症状会发现眼睛被影响了?近来发现视力有所下降!眼睛很痛!经常掉眼水! 大猩猩比人的力气大吗?如果把 世界上力气最大的大猩猩同世界上力气最大的人进行举重比赛,谁能赢?人最多能举起263公斤的重量,大猩猩能超过这个重量吗? 一般黑熊和大猩猩单挑谁较厉害 一辆客车与一辆货车分别从重庆和万州两地相向而行,当客车行了全程的五分之二时,货车离两地中点还有55千米,已知客车与货车的速度比是6:5,求重庆与万州两地相距多少千米? 大猩猩力气大 还是人的力气大? 四脚牲畜有腥味,是指什么动物 一辆汽车从甲地到乙地,3小时行了全程的五分之二,离中点还有55千米,这辆汽车的速度是多少千米? 目前世界上有没有比大猩猩还强壮的大力士?比如,让拳王泰森跟大猩猩打架,谁厉害呢?世界举重冠军跟它掰手腕呢?日本相扑跟它摔交呢? 什么是四脚动物人 直角三角形中1比根号5比根号6是特殊的角吗 spss 用描述统计计算出来的均值可以相加吗? 请问这是什么动物?四脚的! 有人知道这种昆虫的名字吗 某场体育场的入场劵为30元一张,如降价后观众增加50%,收入增1/4,则每张入场劵应降价多少元? 四脚离地是什么动物 为什么说人生就象蒲公英,虽然自由,但身不由己 有能吃鸟的蜘蛛吗 ln[tan(x/2-兀/4)]的导数 剑门之外无客走猜一动物 旋转:如图,半圆O绕点M旋转,点O旋转 到此O.画出半圆O绕点M旋转后得到的图形 体育场入场卷30元一张,若降价后观众人数增加一半,收入增加1/4,问每场入场卷降价多少元? 1.《昆虫记》作者是谁?2.《昆虫记》作者是哪国人?3.《童年》中的主人翁是谁?4.《昆虫记》属于那一类书籍?5.《童年》作者是谁?6.《童年》作者是哪国人?7.《童年》里的主要内容是什么?8.《 夏天树下的光斑是什么形状的?为什么?请用初二上学期的物理知识回答 熊猫是怎么成为国宝的,为什么会成为国宝呢? 人教版 一到十二册的语文园地日积月累和所有古诗 正三角形ABC内接于半径为2cm的圆,则弦AB所对的弦的长为如题、本人分不多、献上10分 什么鸟吃蜘蛛的?打的是一种是蜘蛛和苍蝇的鸟,不过……悬赏财富【5】! 大白鲨怎么玩 什么虫子担任什么工作啊,如蟋蟀是工程师,还有什么啊,急 甲乙两地相距490km,甲每小时40km,乙每小时60km,甲出发后1小时,乙才出发,问乙经过多少小时与甲相遇?2.一辆货车和一辆客车从相距299km的两地相向而行,货车每小时行40km,客车每小时行52km.问:几 大白鲨会叫吗? 17岁少年贩毒只为给爷爷办寿宴 从小杭州孩儿巷取消52个泊位后道路通行明收费站立闯关扎胎警告牌 回应称出于安杭州:拒绝工资集体协商 最高罚款3万杭州凤起东路将继续往东延伸 唐家村桥周日西湖国际马拉松开跑 部分道路临时义乌城区一黄金地块6.1亿成交 业内中央第二轮巡视展开 已进驻商务部和三广州人大常委会公布任免名单 任命15美在联合国驻地部署情报人员 拦截各国诸永高速东阳诸暨交界处数座桥墩下现空阿里推出手机上网流量免单计划 杭州只杭州市“公述民评”面对面问政第三场:中央第二轮巡视工作展开 已进驻商务部杭州:企业拒绝工资集体协商 最高罚款财政部:中国有信心完成经济增长7.5艾弗森正式宣布退役 称至死都是一名7国锦赛-丁俊晖6:1胜进8强 世界排46名中国与印度非法采金者在加纳被捕杭州新增房源远超成交量 很多板块挑选国际足联主席公开嘲讽C罗 重压之下只云浮刮刮乐手工艺品入围赛结果出炉以扩大开放促深改 以深化改革促开放用户至上 长安马自达销量持续飙红郑淳元想找中国女友异国舞娘的广州生活:走下五光十色的舞爱普生创立40年 追求产品品质初衷不《午夜凶铃》制片人 公司破产万亩果园落实17块村留用地 小洲村和海内外侨讯张德江会见阿齐兹大片与汽车结合,真叫人热血沸腾汇添富“河流·孩子”第八季抵达革命圣不必羡慕天价幼儿园, 那不是你玩的微信群友传播淫秽物品 群主被判刑故宫停车场5年内全迁出 紫禁城内今后在广州,还有多少人在听古仔呢?我要报警了 大半夜颜王不睡还在自恋!巴西政府忙省钱 暂时不招公务员新媒体一日·9月15日世界首例全金属三明治化合物合成揭日本“开拓团”历史真相
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘