急求一个VB程序代码，实现数据库内容的查询，修改，新增，删除

'点击工程(P)--引用(N)--选择 "Microsoft DAO2.5/3.5 compatibility Library" 打钩确定。

Dim D As Database, T As TableDef, R As Recordset

Private Sub Command1_Click() '创建数据库

Set D = CreateDatabase("D:\数据库名称.mdb", dbLangGeneral, dbEncrypt) '创建数据库对象(dbEncrypt=加密)

D.NewPassword "", "123456" '数据库密码设置为123456

'建立设置数据表

Set T = D.CreateTableDef("数据表名称") '数据表名称:

T.Fields.Append T.CreateField("项目一", dbMemo) 'TEXT1内容

T.Fields.Append T.CreateField("项目二", dbMemo) 'TEXT2内容

D.TableDefs.Append T '将数据表添加到数据库中

D.Close '关闭数据库

End Sub

Private Sub Command2_Click() '查询

Dim T1 As Boolean '判断查询数据是否存在参数

Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码

Set R = d1.OpenRecordset("Select * From 数据表名称") '数据表名称:

R.MoveFirst '记录移到第一条记录

Do While (R.EOF = False) '如果记录已经是最后一条就退出循环

If R.Fields("项目一") = Text1.Text Then '判断项目一是否等于文本TEXT1内容

Text2.Text = R.Fields("项目二") '如果存在TEXT2文本框就引入记录内容

T1 = True '作于下面判断记录已经存在的条件

Exit Do '记录已经查到，可以退出循环查询比较

End If

R.MoveNext '如果本条记录不符合要就就记录移到下一条记录

Loop

If T1 = False Then MsgBox "您查询的结果不存在" '这里使用到了参数 T1 作为判断是否存在记录

D.Close '关闭数据库

End Sub

Private Sub Command32_Click() '新数据录入

Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码

Set R = D.OpenRecordset("Select * From 数据表名称")

R.AddNew '增加一条新记录

R.Fields("项目一") = 1 'TEXT1新记录内容

R.Fields("项目二") = "个VB程序代码，实现数据库内容的查询，修改，新增，删除" 'TEXT2新记录内容

R.Update '保存记录

D.Close '关闭数据库

End Sub

Private Sub Command4_Click() '修改

Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码

Set R = D.OpenRecordset("Select * From 数据表名称")

R.Edit '修改记录 （注意 在程序中你根据需要条件将记录移到你需要修改的位置才进行修改）

R.Fields("项目一") = Text1.Text 'TEXT1记录内容修改

R.Fields("项目二") = Text2.Text 'TEXT2记录内容修改

R.Update '保存记录

D.Close '关闭数据库

End Sub

Private Sub Command5_Click() '删除

Set D = OpenDatabase("D:\数据库名称.mdb", True, False, ";pwd=123456") '需要查询的数据库名称,格式,允许修改,数据库密码

Set R = D.OpenRecordset("Select * From 数据表名称")

'

Data1.Recordset.Delete '删除该条记录 ，（注意 在程序中你根据需要条件将记录移到你需要删除的位置才进行删除）

D.Close '关闭数据库

End Sub

'我今晚使用的电脑没有安装VB企业版，未经测试，如有疑问星期一上班有时间再回复。