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

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

编辑:说三道四文库 发布时间:2017-11-19 05:51
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这一句。
重塑微软:Satya Nadella开启整合之路 推送工具个推完成B轮数千万美金融资 娱乐行业数据化 ABD爱梦娱乐发布大数据引擎产品 增强现实:10大AR应用窥探移动未来 LBS的硬件创新:高德LBS智能硬件编程马拉松圆满闭幕 2014优秀微信开发商评选上线 首批旅游汽车电商房产等行业应用出炉(表) 让梦想照进现实——宝马百度编程马拉松闭幕 IXDC大会:移动交互设计精髓——用户体验 想辨析“马航”等事件真伪,有很多技术和工具可以使用 两倍于IBM的基础设施投资,Google大力发展云服务 听云平台发布移动应用性能黑洞报告 微信开发者大会陶瑾:如何玩转微信支付功能的原理和开发 560亿PV+7.3亿用户,Reddit是如何做到的? 打造安全界的希波克拉底誓言文化 极客的春天来了! Mozilla COO宫力:老牌操作系统如何助力新一代智能电视 App提高用户留存率新招:应用性能监测 韩国手游市场规模超万亿 2014中韩手游项目对接会开幕在即 SanDisk发展之路:专注SSD、推新产品线 AMD发展线路图曝光,欲造500+平方毫米GPU 全球移动开发者:IAP降温,企业应用成待掘金矿 Vuforia 2014 视觉大奖赛:寻找最炫酷AR增强现实应用,迈向巅峰! MapReduce谢幕,谁将成为最终的接棒者? 变身音乐控制器!开源JavaScript库NexusUI 从112台服务器到Q2 50亿基础设施开销,谷歌只用了15年 【技术文章】微信公众平台开发教程新手解惑40则 Qualcomm承诺投入1.5亿美元 扶持中国初创企业 物联网多了把“新板凳” 联想推三款智能硬件 .NET技术+25台服务器怎样支撑世界第54大网站 基调网络发布听云平台:“听”懂App性能 《近匠》豌豆荚李大海:用搜索敲开手机娱乐平台之门 微信开发HTML5轻游戏中的几个坑 哪位高手帮忙编写一个程序,使局域网各用户之间能传送文件!谢谢! 如何在屏幕任意位置显示移动的文字 收到了数字情书,我嫩是解不开。。帮帮我吧,不好回了。 如何让winamp慢速播放mp3? 哪位高手帮忙编写一个程序,使局域网各用户之间能传送文件!谢谢! 在服务器端的DLL文件中如果获取网站在服务器的磁盘上的路径? 在水晶报表中如何控制所显示记录的条数! 一个超级奇怪的iis问题??????? 一路同行?我开始学习C#, 我是一从为接触过单板的人,学的是软件。现在我想提一个问题。 如何解决UNIX通讯问题? 关于读出文件里的字符串与录入的字符串比较问题 哪位高手帮忙编写一个程序,使局域网各用户之间能传送文件!谢谢! help!有关SESSIONBEAN! 无法联接ORACLE数据库,错误信息:ORA-01034:ORACLE not available 其它信息 sos 用vb怎么实现打印功能啊,不是vb附带的那小功能啊,把家帮帮忙啊,。。。sos 请教高手:视频传输编程技术!!! 请教!.net的程序一定要 各位大侠:小女请教一问题 求救!美编的工作站显示器只能显示黑白了! Excel控件使用之怪现象,请DX们诊断诊断 ACCESS转为SQLSERVER后的问题~~ 这是什么错误? asp中怎么读取xml中的元素值呀? 请问,DATAGIRD能否在编辑时,在表格里使用下拉框控件,如何使用??谢谢 哪里有delphi中文帮助 为什末不能向项目Test中添加一个新文件abc.aspx ? 谢谢!! 各位大虾请指教:线程如何获得消息并进行处理 小弟打算开家小店,众位兄弟姐妹出出点子开个什么样的店,及注意事项! 感谢let5flying,,请进!~ 关于pb中调用oracle数据库下的存储过程(在线等待) 求www.richtextbox.com的控件(得到将很感激) changchang请进~~ asp 为何无法打开Access 备份到磁带机的文题 选择Tcl的十大理由-----转载自Tcl/Tk中文网 BCB6中调用lib中的函数出错,急。 javascript导出xml的内容至Excel的问题! 看C/C++,C中谈到很多DOS下的编程问题,我想问问,C/C++标准函数库和类库在WIN和LINUX下区别大吗?会有什么区别? 高程复习 大家来看看,帮我做个决定 text i .text 可否实现? 问个问题 怎么通过SMTP发送邮件啊。。我看了好几个程序。怎么都不行啊。程序怎么写啊。急!!! 现在C/C++的类库,函数库,被MS和BORLAND乱扩展,还有人写什么BORST。我如何可以得到一个标准的库?哎~~~~~~~ 最近半年你买日货了么? 一个简单问题,帮忙,在线等待,立即给分!!!! 求助!brightcom的PCMICA网卡的驱动程序 如何做二级域名解析与在线申请邮箱? 可不可在客户端脚本中去执行服务端脚本呀 兄弟们,我终于解脱了! 乙烯的四个氢为什么是磁等价的 物理电场与磁场中的左手定则和右手定则,分别指什么?详细一点最好 有关抗日英雄小兵张嘎的资料 怎样用比较法解均值不等式在解决2个式子大小的时候会遇到比较多的运算,在这种情况下,怎样用比较法来解决 比较法怎么运用? 如果以后做翻译的自由职业者能否自己养活自己,怎么从头开始呢? 女人一般在什么情况下会发出这样的感叹Everything is going to be alright,maybe not today but eventually. 自来水 1小时会流出多少方水?1小时流出3.6方水有这个可能吗? 你们小组调查得来的错别字,比较有代表性的如下①锦上天花( ) ②签定书( ) ③诗仙太白氿( ) ④孤注一置( ) ⑤规范正齐( ) ⑥相形见拙( ) 请你对造成错别字的原因作个简要的分析.) 怎么判断的?我化学课上睡觉没听 乙基上的五个氢等价吗 媒体曝美全球监听地图 澳大利亚是美监近3成日本大学毕业生3年内离职 疑被美国艺术家创造“糖果肖像”庆祝万圣节法国一名抢劫犯曾为iPod及8欧元抢韩媒:中国学生“弃日择韩” 赴韩留学俄罗斯一科技园项目涉嫌违法 或致数百新10英镑钞票印简 奥斯丁头像 被批伊朗或取消向巴基斯坦供应天然气巨额合乌克兰加入欧盟协定签署期或推迟到20女子坚持每天喝3升水 4周后外貌似年西班牙首相关注美监听行动 称将听取情可怕的极端天气带给人们的并非只有灾难英国老太被逼自杀,善良为何总遭绑架?铜舟共济:嘉能可事件后关于铜及铜产业10种房屋做抵押易导致贷款审批被拒8种圣诞游戏玩转你的圣诞节【热点】中国不缺做空工具,重磅分析新黄晓明Baby注册完婚 10月将办婚如果你有纯真的朋友 就一定遇到过这1男人的大玩具 三菱Emirai电动概老师摔碎学生iphone6 3台锤子快来围观!清朝格格们的罕见照曝光!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘