如何在数据表之间插入一条记录.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 你 要 在 A之 前 插 入 一 条 记 录 ， 可 以 先 将 记 录 A及 之 后 的 所 有 记 录 的 序 号 加 一 ， 然 后 添 加 记 录 并 将 序 号 设 置 为 A的 序 号 ， 如 ： 
     Dim rd As Recordset 
     Set rd = Data1.Database.OpenRecordset("SELECT * FROM table1 WHERE ID>=2") 
     rd.MoveLast 
     Do While Not rd.BOF 
     rd.Edit 
     rd("ID") = rd("ID") + 1 
     rd.Update 
     rd.MovePrevious 
     Loop 
     rd.Close 
     Data1.Recordset.AddNew 
     Data1.Recordset("ID") = 2 
     Data1.Recordset("Name") = "New" 
     Data1.Recordset.Update 
<END>