VB实现ACCESS数据库记录的查询，新增，删除，修改

“修改”按钮的程序

Private Sub cmdEdit_Click()

sql = "select from 停时统计 where date = cdate('" & Text8Text & "') and ycqk = '" & Combo1Text & "'and id = '" & DataGrid1Columns(2)CellText(DataGrid1Bookmark) & "'"

rsOpen sql, dm, adOpenDynamic, adLockOptimistic

rsFields("id") = Text7Text

rsFields("ycqk") = Combo1Text

rsFields("date1") = Text1Text

rsFields("time1") = Text2Text

rsFields("date2") = Text3Text

rsFields("time2") = Text4Text

rsUpdate

rsClose

End Sub

'“删除”按钮的程序

Private Sub cmdDelete_Click()

strFCode = DataGrid1Columns(0)CellText(DataGrid1Bookmark)

strSCode = DataGrid1Columns(2)CellText(DataGrid1Bookmark)

strCCode = DataGrid1Columns(1)CellText(DataGrid1Bookmark)

sql = "select from 停时统计 where date='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'"

rsOpen sql, dm, adOpenDynamic, adLockOptimistic

rsDelete

rsUpdate

rsClose

End Sub

'“增加”按钮的程序

Private Sub Command1_Click()

sql = "select from 停时统计 order by id"

rsOpen sql, dm, adOpenDynamic, adLockOptimistic

rsAddNew

rsFields("date") = Date

rsFields("id") = Text7Text - 1

rsFields("ycqk") = Combo1Text

rsFields("date1") = Text1Text

rsFields("time1") = Text2Text

rsFields("date2") = Text3Text

rsFields("time2") = Text4Text

rsUpdate

rsClose

With Adodc1

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\db1mdb;Persist Security Info=False"

Adodc1RecordSource = "select from 停时统计 where date = cdate('" & Text8Text & "') and ycqk = '" & Combo1Text & "' order by id"

Adodc1Refresh

DataGrid1Refresh

End With

End Sub

直接用<%=rs("a8")%>这种显示在修改表单页面，仅仅是显示，并没有作为变量提交给修改页面，被视为一个空值，所以看到的是一行空的格了。

可以用<input name="classid" type="hidden" value="<%=rs("a8")%>">

1首先打开Access数据库后，建立两个数据表来作为举例。

2建立好数据表以后，点击表可以看到两个表中包含不同的字段内容，如果要查询任何一个字段的记录内容，就要将两个表建立起关系，相互关联。

选中任何一个表，然后点击工具栏上的视图图标。

3现在切换到设计界面，点击工具栏上的关系按钮，打开关系窗口。

4在关系窗口的添加表中，依次选择要添加的表，然后点击添加按钮，将表添加到关系窗口中。添加好以后点击关闭，回到关系窗口。

5鼠标点击其中一个表的主键字段，即没有重复值的唯一字段。按住鼠标不放，然后拖动到另一个表的相同字段松开，在d出的窗口中点击确定。

6现在两个表已经建立了以上岗证号为关联的关系。以后可以通过查询来显示任何一个表中的符合条件的字段记录。

以上就是关于VB实现ACCESS数据库记录的查询，新增，删除，修改全部的内容，包括:VB实现ACCESS数据库记录的查询，新增，删除，修改、使用asp修改access数据库一部分内容，提交后列表不显示求助高手、access数据库怎么做双击d出修改窗口的表，以前坐的好像崩溃了，可以回复吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！