“修改”按钮的程序
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出修改窗口的表,以前坐的好像崩溃了,可以回复吗等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)