在access数据库中查询设计会对符合条件的记录进行修改删除。在查询指定记录后选择删除查询命令。access数据库官方信息显示,在access数据库中删除一条满足的数据可以使在查询指定记录后选择删除查询命令。access数据库是微软的一个小型数据库,是Microsoftoffice中的一个组件。
Private Sub CommandButton2_Click() ''-------修改模块
Dim sql As String
Dim conn As New ADODBConnection
Dim rst As New ADODBRecordset
Dim a as single
Dim b as string
a = UserForm1TextBox1text‘--------放置50的文本框
b=userform1textbox2text‘------放置SJ的文本框
connOpen "provider=MicrosoftJetOLEDB40;Data Source=" & ThisWorkbookPath & "\数据库名称mdb"
sql = "update tj set 数量=数量+" & a & ", where 名称='" & b & "'"
connExecute sql
MsgBox "已修改此条记录,请关闭该页面"
End Sub
可以通过四种方法在窗体或数据表中筛选记录:按选定内容筛选、按窗体筛选、筛选目标和高级筛选/排序。
按选定内容筛选
1
启动
microsoft
access,然后打开您要使用的数据库。
2
在窗体、子窗体、数据表或子数据表的一个字段中,选择一个要作为筛选条件的值的实例(如名称或数字)。
3
在“记录”菜单上,指向“筛选”,然后单击“按选定内容筛选”。
4
重复步骤
2
和
3,直到找到需要的一组记录为止。注意:也可以筛选不含某一值的记录。选择一个值后,单击右键,然后单击“内容排除筛选”。
按窗体筛选
1
在窗体视图中打开一个窗体,或在数据表视图中打开一个表、查询或窗体。要在子数据表中筛选记录,请单击展开指示符以显示该子数据表。
2
在“记录”菜单上,指向“筛选”,然后单击“按窗体筛选”以切换到“按窗体筛选”窗口。
3
可以为所显示的窗体、子窗体、主数据表或任何子数据表指定条件。每个子窗体或子数据表都有自己的“查找”和“或”选项卡。
4
单击要在其中指定条件的字段。
update [成绩表] set [成绩]=95 where 学号=(select 学号 from 学生表 where [姓名]='张三') and 课程号=(select 课程号 from 课程表 where 课程号='语文')
要使用Access2003以上的版本,比如将表table1中的content字段里的AA全部改成BB *** 作如下:
打开数据库后,查询--->在设计视图中创建查询,然后关闭d出的窗口,点左上角工具栏的SQL输入:
update table1 set content=replace(content,'AA','BB')
最后点工具栏中的惊叹号来执行命令
SQL语句说明:
update [表名] set [字段名]=replace([字段名],'AA','BB')
“修改”按钮的程序 \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
以上就是关于在access数据库中什么查询会对符合条件的记录进行修改删除全部的内容,包括:在access数据库中什么查询会对符合条件的记录进行修改删除、vb对access数据修改的问题、请问如何在access中通过窗体查找、修改数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)