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

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

编辑:说三道四文库 发布时间:2018-01-23 10:09
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这一句。
终于来了,微信企业号正式开启公测! 【问底】王帅:深入PHP内核(一)——弱类型变量原理探究 谷歌Kubernetes专访:未来BigTable开发只是课后习题 首届“最具价值CTO”评选来啦!我们在找你! 【CTO俱乐部走进顺丰总部】活动图文直播进行中 我的WINDOWS XP怎么开机后自动启动IE,谢谢了!!!!! 我想做一个SQL-SERVER数据库结构的升级程序,请来点建议 exee (检查一下你的心病是否和我的一样) JJ在吗?你人气高,帮我UP贴吧 delphi 连接ORACLE的chr字段提示WideString出错,求救! oracle数据库操作问题 简单问题,在线等…… 问题解决,下午揭贴 多谢那个阿傻。。。。。 一个排序问题 Turn on the radio 用He作主语改 现代汉语划分词类的依据是什么 谁有《假如给我三天光明》中精彩段落摘抄?最好800 英语翻译睫毛夹:削笔刀: 求《飘》的好段摘录,郝思嘉的经典语录,经典语段,1 you'd better turn off the 歌词里有 turn on the radio 有没 May I turn on the radio?A turn on the radio 美国拒绝回应“在北京、上海等地设监听津巴布韦灵车撞上油罐车至24人死亡 联合国发言人说美国已保证不会对联合国外媒曝美国安局秘密窃取雅虎和谷歌数据墨西哥警察路边与女子发生性关系视频网习近平为抗战老兵颁发纪念章督促拐卖案买方自首是“多此一举”吗拍风景亦是风景北京新发地菜价晴雨表人民币中间价连续四个交易日上调恶棍法则造梦空间系统超级仙侠世界重生到西游无限叔庆丰公园旅游通惠河旅游莽山森林温泉旅游三亚自然博物馆旅游南天生态大观园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘