vb+Access 做专家管理系统

Question

添加，修改，删除，浏览，简单维护等功能
这两天急用
哪位好心人帮帮我

Answer 1

不知道你要实现什么,给你个参考
先引用 : Microsoft Activex Data Objects 2.1 Library
准备工作:
在D:\下,有一个数据库文件 Mydb.Mdb(Access数据库)
数据库有,有一个表,名叫Mytable
Mytable下,有四个字段
DM 自动编号
XX 文本型(也可以是其它的
YY 文本型(也可以是其它的
FF 文本型(也可以是其它的
数据表下,随便添加几个记录吧,DM系统会自动分配

程序方面:
在窗体上,添加四个文本框,一个命令按钮,编写如下代码,你试试看
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将路径换成你的数据库位置
Dim Sql As String, S As Long
S = Val(Text1.Text)
If S > 0 Then
Sql = "Select * From [MyTable] Where DM=" & S
Rs.Open Sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此记录"
Else
Text2.Text = Rs("XX")
Text3.Text = Rs("YY")
Text4.Text = Rs("FF")
End If

Else
MsgBox "请输入正确的编号"
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

上面的是查找的,至于添加,删除的功能,也很相似
只要改SQL语句就行
添加:
SQL="Insert Into [数据表](字段名1,字段名2, ... ,字段名N) Values(值1,值2, ... ,值N)"
Conn.Execute SQL '就能添加了

删除:
SQL="Delete From [数据表名] Where 条件"
Conn.Execute SQL '就能执行删除满足条件的记录了