VB实现ACCESS数据库记录的查询，新增，删除，修改的代码是什么

“修改”按钮的程序 \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

要使程序能够访问数据库必须通过ADO技术实现，下面就LZ所提供的例子作详细讲解：

（调用入口，如单击按钮事件发生时。注：vb中变量不区分大小写）

Dim conn as new adodbconnection '定义conn为新的数据库连接对象并分配内存

Connstr="Provider=microsoftjetoledb40;data source=" & apppath & "\libmdb" '在这里编写一个用于与告知计算机连接的数据库的连接串，其中apppath指该应用程序/工程所在路径，所以必须将Access的数据库文件放在应用程序/工程所在路径的同一个目录下

Connopen Connstr,"admin","",-1 '启动conn的连接，其中参数如下：连接串，连接用户名，连接密码，连接方式（这里的-1是指默认方式）

Dim rs as new adodbrecordset '定义rs为新的数据库记录集对象并分配内存

Sqlstr="select ab from results" '这里是放入sql语句的地方，将LZ的实际sql语句替换到我填入的sql语句中

Rsopen Sqlstr,Conn,3,2,-1 '打开rs记录集查询结果，其中参数如下：sql语句，活动的连接串（即现在打开中的连接串），静态集（3表示静态集），悲观锁（2表示悲观锁），打开方式（-1表示默认方式）

这样就完成了查询的工作，接下来是提取从查询中值的 *** 作，由于我对LZ想要得到的信息不是很清晰，所以在这里就停下问一下您到底是要达到什么样的查询效果，需要的是一个什么样的值，再采取合适的方法将其提取出来是比较合适的

<%

db="/data/dataaccdb"

connstr="Provider=MicrosoftACEOLEDB120;Data Source="&servermappath(db)

set conn=servercreateobject("ADODBConnection")

connopen connstr

%>

这样就可以连接到Access2007数据库了，

不过还得需要看服务器上是否支持2007格式，

set rs=connexecute("select from qu1 where dingdan ='"&request("order_no")&"'")

if rsbof and rseof then

rs("usename") = request("usename")

rs("dingdan") = request("order_no")

rsupdate

end if

以上就是关于VB实现ACCESS数据库记录的查询，新增，删除，修改的代码是什么全部的内容，包括:VB实现ACCESS数据库记录的查询，新增，删除，修改的代码是什么、求VB编程连接access数据库的源代码、求 网页上 连接 access 数据库 的代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！