刘金玉的零基础VB教程079期：数据库增删改查
- 2020 年 4 月 7 日
- 笔记
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
