
“修改”按钮的程序 \x0d\Private Sub cmdEdit_Click() \x0d\sql = "select from 停时统计 where date = cdate('" & Text8Text & "') and ycqk = '" & Combo1Text & "'and id = '" & DataGrid1Columns(2)CellText(DataGrid1Bookmark) & "'" \x0d\rsOpen sql, dm, adOpenDynamic, adLockOptimistic \x0d\rsFields("id") = Text7Text \x0d\rsFields("ycqk") = Combo1Text \x0d\rsFields("date1") = Text1Text \x0d\rsFields("time1") = Text2Text \x0d\rsFields("date2") = Text3Text \x0d\rsFields("time2") = Text4Text \x0d\rsUpdate \x0d\rsClose \x0d\End Sub \x0d\\x0d\'“删除”按钮的程序 \x0d\Private Sub cmdDelete_Click() \x0d\strFCode = DataGrid1Columns(0)CellText(DataGrid1Bookmark) \x0d\strSCode = DataGrid1Columns(2)CellText(DataGrid1Bookmark) \x0d\strCCode = DataGrid1Columns(1)CellText(DataGrid1Bookmark) \x0d\sql = "select from 停时统计 where date='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'" \x0d\rsOpen sql, dm, adOpenDynamic, adLockOptimistic \x0d\rsDelete \x0d\rsUpdate \x0d\rsClose \x0d\End Sub \x0d\\x0d\'“增加”按钮的程序 \x0d\Private Sub Command1_Click() \x0d\sql = "select from 停时统计 order by id" \x0d\rsOpen sql, dm, adOpenDynamic, adLockOptimistic \x0d\rsAddNew \x0d\rsFields("date") = Date \x0d\rsFields("id") = Text7Text - 1 \x0d\rsFields("ycqk") = Combo1Text \x0d\rsFields("date1") = Text1Text \x0d\rsFields("time1") = Text2Text \x0d\rsFields("date2") = Text3Text \x0d\rsFields("time2") = Text4Text \x0d\rsUpdate \x0d\rsClose \x0d\\x0d\With Adodc1 \x0d\Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\db1mdb;Persist Security Info=False" \x0d\Adodc1RecordSource = "select from 停时统计 where date = cdate('" & Text8Text & "') and ycqk = '" & Combo1Text & "' order by id" \x0d\Adodc1Refresh \x0d\DataGrid1Refresh \x0d\End With \x0d\End Sub
问题好大啊
都可以实现,但是你需要什么
想让记录编号始终保持递增
其实就是重新编号,也只有一个办法,对需要重新编的逐个修改
而要定位在删除编号后重新编号太麻烦了,如果数据不是太多的话,可以另编一个sub让每次删除 *** 作后重新依序对所有记录进行重新编号
装个百度HI联系吧
1、首先我们打开Access数据库,点击新建选项,选择空白桌面数据库
2、接下来在d出的界面中给数据库文件起一个名字
3、然后切换到创建菜单,点击表选项
4、最后我们给表添加需要的字段就可以了,就可以删除ACCESS数据库中某个表的全部内容了。
以上就是关于VB实现ACCESS数据库记录的查询,新增,删除,修改的代码是什么全部的内容,包括:VB实现ACCESS数据库记录的查询,新增,删除,修改的代码是什么、access查询删除添加记录、如何删除ACCESS数据库中某个表的全部内容等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)