VB中怎么对数据库进行添加删除修改的操作

来源：百度知道 编辑：UC知道 时间：2024/05/27 02:37:46
我用的是DATA控件我已经把VB和ACCESS 2000连接上了，VB也能正常访问到数据了
我希望可以加几的按钮，拥有添加，删除，修改，查询的功能（相关的数据改动就在原本浏览数据的TEXT中录入就行了）

下面的例子就是对数据库进行添加删除修改的操作：
Private Sub Command1_Click()
For i = 0 To 5
Text1(i).Text = ""
Next i
Adodc1.RecordSource = "select * from " & s1 & " order by 编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")
Else
Text1(0).Text = "G0001"
End If
End Sub
Private Sub Command2_Click()
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
End If
Else
MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"
End If
End Sub
Private Sub Command3_Click()
If Text1(0).Text = "" Or Text1(1).Text =