SQL最后一行插入记录

SQL最后一行插入记录,第1张

你可以这样的思路,先把他的最大id找到,前提是你的id是从1开隐喊始依次递增的,我一般在不会简便方法的时候就会这么做。

分解步骤: select count(id) from tablename

然后把这个当做一旁携纳个条件用进去

最后得运没到结果:

insert into tablename select (id+1) as id ,name,sex,age from tablename

where id= (select count(id) from tablename)

放心吧,我运行过,能行

如果没有特殊设定的话,基本都是派州自动最后一行。

在使用INSERT INTO TableName(field1,field2,field3,....) VALUES(....)向Access数据库早羡念插入一条陆困记录

用数据库控件实现数据录入/删除

放置控件: Form1:Data1Text1,2Lbel1,2Command1,2,3,4,5Frame1

属性设置:

Data1:〖答族DatabseName〗="Nwind.mdb",〖Recordsource〗=products

Text1:〖Datasource〗=data1,〖Datafield〗=produtID,〖TabIndex〗=0

Text2:〖Datasource〗=data1,〖Datafield〗=produtName,〖TabIndex〗=1

Command1:〖Name〗=Cmdadd,〖Caption〗=增加

Command2:〖Name〗=Cmddelete,〖Caption〗=删除

Command3:〖Name〗=Cmdexit,〖Caption〗=退出

Command4:〖Name〗=Cmdupdate,〖Caption〗=确定

Command5:〖Name〗=Cmdcancel,〖Caption〗=放弃

Frame1中包含Command4,5

代码:

Option Explicit

Dim firstflag As Boolean '首次使用标记

Private Sub Cmdadd_Click() '增加记录

Data1.Recordset.AddNew

Frame1.Visible = True '使主按钮组不可见

Data1.Caption = "记录:" &Data1.Recordset.RecordCount + 1

Text1.SetFocus

End Sub

Private Sub Cmdcancel_Click() '放弃录入的记录

Data1.Recordset.CancelUpdate

Frame1.Visible = False'使主按钮组可见

Data1.Recordset.MoveLast '回到最后一个记录

End Sub

Private Sub Cmdupdate_Click() '确尘液定录入的记录有效

Data1.Recordset.Update

Frame1.Visible = False'使主按钮组可见

Data1.Recordset.MoveLast '显示录入内容

End Sub

Private Sub Data1_Reposition() '重新定位记录时显示记录号

If firstflag Then '如果是首次使用

Data1.Caption = "" 'data1标题框显示空白

firstflag = False

Else '如果不是首次使用,则在

' data1标题框显示记录号

Data1.Caption = "总记录数:" &Data1.Recordset.RecordCount _

&" 当前记录:" &Data1.Recordset.AbsolutePosition + 1

End If

End Sub

Private Sub Cmddelete_Click()'删除

Data1.Recordset.Delete

Data1.Recordset.MovePrevious '回到前一个记录派举物

End Sub

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub Form_Load()

firstflag = True '首次使用

Frame1.Visible = False '使主按钮组可见

End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: https://www.outofmemory.cn/bake/11983178.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存