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

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

编辑:说三道四文库 发布时间:2018-05-22 11:59
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这一句。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘