谁可以帮我解决一个VB的问题，谢谢！

来源：百度知道 编辑：UC知道 时间：2024/05/12 05:03:45
2．使用ADO对象完成向数据库中添加记录功能
1）正确定义所用到的ADO对象
2）能正确使用代码打开数据库
3）数据库文件与VB工程文件在同一文件夹下，使用相对路径
4) 能正确打开记录集对象，SQL语句准确无误
5）能正确向数据库中添加记录
6）禁止用户添加空记录
答案用VB语言编辑出来。 可以给我写好的答案吗？我着急用，谢谢

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub CmdOpen_Click()'打开数据库
Conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & _
App.Path & "\库文件名.mdb;"
SQL = "SELECT * FROM 数据表名"
Rs.Open SQL, Conn, 1, 3
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
End Sub
Private Sub CmdAdd()'添加记录
Conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & _
App.Path & "\库文件名.mdb;"
SQL = "SELECT * FROM 数据表名"
Rs.Open SQL, Conn, 1, 3
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then
Rs.AddNew
Rs(0)=Text1.Text
Rs(1)=Text2.Text
Rs(2)=Text3.Text
Rs.Update
Else
Msgbox "不能加入空数据!"
End If
Rs.Close