ADO问题:如何插入一条记录,不是追加。

时间:2020-12-08 00:26:52
  我用了ADO控件与DATAGRID,来绑定数据。现想在记录任何位置插入一条空记录不知
怎么做。还有,怎样改变记录的指向(我说的是ADODC前的一个小黑三角)。
   谢谢!

6 个解决方案

#1


1.recordset.addnew 方法,
2.recordset.move**** 方法
详细内容请查帮助文件

#2


 也不对。
 我要的是插入而不是追加。
 我的想法是:查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?

#3


 //也不对。
   我要的是插入而不是追加。

 //查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?

#4


我用DBGRID+data时用的是


Dim rs As Recordset
Dim XX, i As Integer

XX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If

#5


加了一个IDD的字段

#6


你最好用DBGRID绑定查询(不是表),你新添加的记录将出现在表格的中间(查询按字段排序)。

#1


1.recordset.addnew 方法,
2.recordset.move**** 方法
详细内容请查帮助文件

#2


 也不对。
 我要的是插入而不是追加。
 我的想法是:查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?

#3


 //也不对。
   我要的是插入而不是追加。

 //查找出一条合乎要求的记录后,使小黑三角指到那条记录上,该怎么办?

#4


我用DBGRID+data时用的是


Dim rs As Recordset
Dim XX, i As Integer

XX = Data1.Recordset.Fields("idd")
If XX > 0 Then
datl.Execute "update fpdy set idd=idd+1 where idd>=" & XX
Set rs = datl.OpenRecordset("fpdy")
rs.AddNew
rs!idd = XX
rs.Update
rs.Close
Data1.RecordSource = "select * from fpdy order by idd"
Data1.Refresh
i = 1
Do While Not Data1.Recordset.EOF
i = i + 1
If i = XX + 1 Then Exit Do
Data1.Recordset.MoveNext
Loop
DBGrid1.SetFocus
End If

#5


加了一个IDD的字段

#6


你最好用DBGRID绑定查询(不是表),你新添加的记录将出现在表格的中间(查询按字段排序)。