高考问答圣恩传说wii封面:向大家请教一个VB的问题
来源：百度文库 编辑：高考问答 时间：2024/04/25 10:26:07
我用一个表格控件和数据库连接，由于表格比较复杂，我没有绑定，只是用如：grid1.cell(x,y).text=rs.Fields("trbl")的形式显示数据，如果查出有多条记录，在修改记录时该怎么做？
该表格控件不支持数据绑定，在修改表格内容时如何实现修改数据库记录。(多条记录)
rs.Open "Select * from cphldcb", conn, adOpenKeyset, adLockOptimistic
Grid1.Rows = 3
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("qymc") Like "*" & Text1.Text & "*" Then
Grid1.Cell(Grid1.Rows - 1, 2).Text = rs.Fields("nsrsbh")
rs.MoveNext
Grid1.Rows = Grid1.Rows + 1
Else
rs.MoveNext
End If
Loop
该表格控件不支持数据绑定，在修改表格内容时如何实现修改数据库记录。(多条记录)
rs.Open "Select * from cphldcb", conn, adOpenKeyset, adLockOptimistic
Grid1.Rows = 3
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("qymc") Like "*" & Text1.Text & "*" Then
Grid1.Cell(Grid1.Rows - 1, 2).Text = rs.Fields("nsrsbh")
rs.MoveNext
Grid1.Rows = Grid1.Rows + 1
Else
rs.MoveNext
End If
Loop
我明白了，你可以选用DATA控件，这个控件支持通过表格修改数据可以直接修改数据库的数据
你可以用ADODC试一下。