在线等待（100）往一个表的字段赋值，怎么不行啊！

Question

能知道提出的错误提示么？？？、
我感觉你是想在数据库中的 课程  字段里 加上 计算机 一项吧？？？
如果是那样你在前面 加一个 myrs.addnewDim 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
 

Answer 1

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 & "'" 

Answer 2

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  

Answer 3

myrs.Fields("课程") = “计算机”！！！！！
myrs.Update
myrs.MoveNext直接用mycon.execute("update TStuScore set 课程='jsj' where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'" ")

Answer 4

记录是绝对检索到了的，就是myrs.Fields("课程") = 计算机 有问题，也没有提示的！myrs.Fields(4).Value = Combo3.Text  应该是这样的，就是添不进去！

Answer 5

不是要插入一个记录，而是要在已有的记录中的课程字段的值修改为 combo3.text

Answer 6

WizardBear(飞猫_重起机器)的方法才是真正系统程序的标准做法，请参考

Answer 7

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, adLockPessimisticdo until myrs.eof or myrs.bof
   myrs!课程 = "计算机"
   myrs.Update
   myrs.MoveNext
loop

Answer 8

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

Answer 9

不是要插入一个记录，而是要在已有的记录中的课程字段的值修改为 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, adLockPessimisticdo until myrs.eof
   myrs!课程 = combo3.text
   myrs.Update
   myrs.MoveNext
loop不需要For i = 0 To myrs.RecordCount这一句。