vb access 数据库写入 方法 体会1

1.数据库的增删改查，我今天学了增加。使用的是ADO控件方法，主要就是不需要代码的情况下，可做个数据库查看软件。非常方便。

2.根据网上查看到的增加数据方法。

'在你要进行插入操作的事件中插入如下代码，以学生信息表为例'
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Set rs = Nothing
sql = "insert into 学生信息表(学号,姓名,性别,年龄,电话号码,成绩)values('" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Text4.Text & "','" & Text5.Text & "')"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"
rs.Open sql, conn
MsgBox "插入成功"

'在你要进行修改操作的事件中插入如下代码'
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Set rs = Nothing
sql = "update 学生信息表 set 性别 = '男' where 学号 = '" & Text1.Text & "'"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"
rs.Open sql, conn
msgbox "修改成功"

以上代码我刚刚测试了增加部分，测试完毕后，非常兴奋。不过遇到个小问题就是数据类型需要匹配才行，否则报错。

另外，觉得数据库连接的方式应该是有几种，目前无法确定。比较迷糊。至少现在掌握了一种了。非常兴奋。