分解步骤: 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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)