Question

vb+access实现添加删除修改，送200分。

我使用了ado连接了access，数据库名data，表名：userinfo，字段有:姓名（TextBox1）、地址（TextBox2）、手机（TextBox3）；添加按钮（Button1）、删除按钮（Button2）、修改按钮（Button3）。
问题：如何实现点击按钮添加或删除和修改数据到数据库中。我是菜鸟请详细说明，越详细越好。写上代码的同时请注明代码粘贴到何处。
请照上面的字段写，拜托~
程序是 vs2010

Answer 1

'如果你还没连接数据库
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data.mdb;Persist Security Info=False" '设置数据库路径
Adodc1.CommandType = adCmdText '设置记录源
Adodc1.RecordSource = "select * from userinfo" '连接数据库的userinfo表文件
End Sub

'如果你已经通过Adodc控件Adodc1连接好了数据库
Private Sub Button1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset("姓名") = TextBox1
Adodc1.Recordset("地址") = TextBox2
Adodc1.Recordset("手机") = TextBox3
Adodc1.Recordset.Update
End Sub

Private Sub Button2_Click()
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
IF Adodc1.Recordset("姓名") = TextBox1 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Exit Do
End IF
Loop
End Sub

Private Sub Button3_Click()
Button2_Click
Button1_Click
End Sub

追问

不好意思，问题发多了几个，看来你可以得到好几百分了。
还有2个问题。
1.可能是我表达错误了，Adodc怎么添加？我复制进去提示我未申明Adodc？
2.我在Form1_Load中连接的是Me.UserinfoTableAdapter.Fill(Me.DataDataSet.userinfo)，是通过数据源连接的，是不是你们所说的ado连接的？

追答

看起来你是用的VS.Net
在项目->添加引用里选择adodb
'定义公共变量
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String

Form1_Load里代码如下
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\data.mdb" '路径名改为你自己的
conn.Open(connstr)
rs.Open "SELECT * FROM userinfo", conn, 3, 3

'各个Button的代码修改如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
rs.AddNew("姓名", TextBox1.Text)
rs.Fields("地址").Value = TextBox2.Text
rs.Fields("手机").Value = TextBox3.Text
rs.Update()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
rs.MoveFirst()
Do While Not rs.EOF
If rs.Fields("姓名").Value = TextBox1.Text Then
rs.Delete()
rs.Update()
Exit Do
End If
Loop
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button2_Click(sender, e)
Button1_Click(sender, e)
End Sub

Answer 2

http://zhidao.baidu.com/question/296926583.html
我刚刚才回答过类似的问题。

虽然没有写全，只要连接你按这样写，添加、删除、修改都可以。