操屁眼的视频在线免费看,日本在线综合一区二区,久久在线观看免费视频,欧美日韩精品久久综

劉金玉的零基礎(chǔ)VB教程083期：數(shù)據(jù)表格綁定數(shù)據(jù)庫

時間:2022-07-16

本文章向大家介紹劉金玉的零基礎(chǔ)VB教程083期：數(shù)據(jù)表格綁定數(shù)據(jù)庫vb連接數(shù)據(jù)庫的方法，主要內(nèi)容包括其使用實例、應(yīng)用技巧、基本知識點(diǎn)總結(jié)和需要注意事項vb連接數(shù)據(jù)庫的方法，具有一定的參考價值，需要的朋友可以參考一下。

視頻講解

文字講解：

劉金玉的零基礎(chǔ)VB教程083期：

數(shù)據(jù)表格綁定數(shù)據(jù)庫

ADODC在哪里？

課堂總結(jié)

1、掌握使用adodc控件方法來生成數(shù)據(jù)庫連接字符串

2、在使用數(shù)據(jù)庫前必須要連接數(shù)據(jù)庫conn.open，使用conn.state來判斷是否連接數(shù)據(jù)庫，值為0的時候代表沒有連接

3、注意在使用數(shù)據(jù)集rs之前必須要分配內(nèi)存空間

4、綁定查詢前，需要使用sql語句將數(shù)據(jù)查詢出來綁定到rs中

5、使用Set . = rs來綁定數(shù)據(jù)集到控件上面

6、顯示出來后，即綁定后，需要修改表頭

文件列表：

界面：

源代碼：

Option Explicit
Dim sql As String
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
If conn.State = 0 Then
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Database3.mdb;Persist Security Info=False"
    conn.Open
End If
sql = "insert into [users]([username],[password]) values('" & Text1.Text & "','" & Text2.Text & "')"
Set rs = New ADODB.Recordset

rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
'MsgBox "錄入成功！"
sql = "select * from users"
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs
'表頭
MSHFlexGrid1.TextMatrix(0, 0) = "唯一編號"

MSHFlexGrid1.TextMatrix(0, 1) = "賬號"
MSHFlexGrid1.TextMatrix(0, 2) = "密碼"
End Sub
Private Sub Command2_Click()
If conn.State = 0 Then
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Database3.mdb;Persist Security Info=False"
    conn.Open
End If

Set rs = New ADODB.Recordset
sql = "select * from users"
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs
'表頭
MSHFlexGrid1.TextMatrix(0, 0) = "唯一編號"
MSHFlexGrid1.TextMatrix(0, 1) = "賬號"
MSHFlexGrid1.TextMatrix(0, 2) = "密碼"
End Sub