您好,登錄后才能下訂單哦!
這篇文章將為大家詳細(xì)講解有關(guān)mshflexgrid數(shù)據(jù)表格怎樣綁定數(shù)據(jù)庫,文章內(nèi)容質(zhì)量較高,因此小編分享給大家做個(gè)參考,希望大家閱讀完這篇文章后對相關(guān)知識有一定的了解。mshflexgrid數(shù)據(jù)表格綁定數(shù)據(jù)庫
ADODC在哪里?
課堂總結(jié)
1、掌握使用adodc控件方法來生成數(shù)據(jù)庫連接字符串
2、在使用數(shù)據(jù)庫前必須要連接數(shù)據(jù)庫conn.open,使用conn.state來判斷是否連接數(shù)據(jù)庫,值為0的時(shí)候代表沒有連接
3、注意在使用數(shù)據(jù)集rs之前必須要分配內(nèi)存空間
4、綁定查詢前,需要使用sql語句將數(shù)據(jù)查詢出來綁定到rs中
5、使用Set MSHFlexGrid1.DataSource = rs來綁定數(shù)據(jù)集到mshflexgrid控件上面
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
關(guān)于mshflexgrid數(shù)據(jù)表格怎樣綁定數(shù)據(jù)庫就分享到這里了,希望以上內(nèi)容可以對大家有一定的幫助,可以學(xué)到更多知識。如果覺得文章不錯(cuò),可以把它分享出去讓更多的人看到。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。