求用 VB(目前只有VB，没有其他软件…) 来实现 Access 数据库记录的查询，新增，保存，删除和修改功能。

来源：百度知道 编辑：UC知道 时间：2024/05/19 17:42:35
今天上午发的莫名其妙的被百度删了……再发一下！
我要用VB实现Access数据库记录的查询，新增，修改，保存，删除功能。

数据用ADO 或者oledb连接Access数据库都可以，但是麻烦讲解一下～
窗体中，我只初步设计了查询的部分，有一个combo，用于选择要查的字段；一个text，用于输入要查询的内容；两个单选——一个“精确”，一个“模糊”，用于选择查询方法；还有一个command，用于执行查询。
我想在窗体中实现新增，查询，修改，保存，删除的功能，不知具体的执行方法和源代码，有类似代码和程序的麻烦一定给我发一个啊！
最好可以在代码后面帮忙注释一下，因为我对VB已然没有了熟悉度……
还有，因为我这里用不了QQ，所以只能用百度发消息了……
程序和源代码麻烦大虾发到我的这个邮箱里：easy.momo@qq.com

上午有一位好心的大虾——草是无辜的，给我发了VC++.net的代码和程序，但无奈装不了VC++，此电脑内存只有256，只能用VB。

汗。。。。。直接看代码不就得了。。。什么地方没看明白我告诉你。。。。。

我用的是VB+SQL，是用ADO连接的，你需要改一下连接数据库的代码才行
你看一下行不行

VB+SQL，是用ADO连接改一下连接数据库的代码

将Access改成data控件就成直接连了,ADO在在ODBC中设置,烦.

偶不会哦。紫紫

例如在Form中设置3个Textbox和5个CommandButton
分别为

Textbox=Date(txtdate),Items(txtitems),Price(txtprice).

CommandButton = 新增(cmdadd),储存(cmdsave),删除(cmddelete),
取消新增(cmdcancel),编辑(cmdedit).

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mode as string

Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"Persist security info= False; Data source=" & App.Path & "\daily.mdb"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Daily", cn, adOpenKeyset, adLockPessimistic (Daily为Access 资料表名)

For i = 0 To rs.Fields.Count - 1
List1.AddItem rs.Fields(i).Name
Next i
End Sub

以下自作函数以便文本栏显示资料表资料
Sub Loa