刘金玉的零基础VB教程079期：数据库增删改查---刘金玉编程

视频讲解

https://v.qq.com/x/page/p0942erecnh.html

文字讲解

刘金玉的零基础VB教程079期：

数据库增删改查

步骤

1、创建数据库（access 2003版本（mdb）、2007以后版本(accdb) ）

2、创建表users，新建字段（表头）：username、password、sex

3、创建增加数据的界面

4、引用数据库操作对象，写代码：创建一个连接对象、利用数据集创建数据对象、执行数据库操作语句

5、首先要获取到数据库连接字符串，如果是mdb类型的数据库，那么字符串

"Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "test.mdb;Persist Security Info=False"

如果是accdb类型的数据库，那么就

"Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "test.mdb;Persist Security Info=False"

课堂总结

1、掌握数据库的创建（两种方法用VB软件、直接创建access）

2、掌握数据库的连接

3、掌握数据库的数据集对象的使用方法

4、学会基本的sql语句，更多的数据库知识关注我的新教程节目access数据库的开发使用

5、将本节的内容实战一遍，能够录入数据，能够查询数据

文件列表

窗体form1界面

窗体form1源代码：

Dim conn As New ADODB.Connection '声明并创建连接对象 Dim rs As ADODB.Recordset '声明连接对象类型 Dim sql$ Private Sub Command1_Click() If conn.State = 0 Then conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "test.mdb;Persist Security Info=False" '连接数据库的驱动字符串 conn.Open '打开数据库 End If 'sql插入语句 sql = "insert into [users]([username],[password],[sex]) values('" & Text1.Text & "',' " & Text2.Text & " ','" & Combo1.Text & "')" '创建数据集对象的连接 Set rs = New ADODB.Recordset rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic End Sub Private Sub Command2_Click() Form2.Show End Sub

窗体form2界面

窗体form2源代码

Dim conn As New ADODB.Connection '声明并创建连接对象 Dim rs As ADODB.Recordset '声明连接对象类型 Dim sql$ Private Sub Form_Load() Show If conn.State = 0 Then conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "test.mdb;Persist Security Info=False" '连接数据库的驱动字符串 conn.Open '打开数据库 End If 'sql插入语句 sql = "select * from [users]" '创建数据集对象的连接 Set rs = New ADODB.Recordset rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic Dim i% Do While Not rs.EOF '输出一行记录 i = 0 Do While i <= 2 '将每一列记录输出 Print rs(i).Name & ":" & rs(i).Value & " "; i = i + 1 Loop Print '将指针往下移动一行 rs.MoveNext Loop End Sub ---来自腾讯云社区的---刘金玉编程