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 "修改成功"
以上代码我刚刚测试了增加部分,测试完毕后,非常兴奋。不过遇到个小问题就是数据类型需要匹配才行,否则报错。
另外,觉得数据库连接的方式应该是有几种,目前无法确定。比较迷糊。至少现在掌握了一种了。非常兴奋。