劉金玉的零基礎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
