Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim SSQL As String
Set rs = New ADODB.Recordset
Adodc12.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\盛科電子\VB study\database12.mdb;Persist Security Info=False"
SSQL = "select * from 學生 where 學號='" & Text1.Text & "'"
rs.CursorLocation = adUseClient
rs.Open SSQL, Adodc12, adOpenKeyset, adLockReadOnly
Set MSHFlexGrid1.DataSource = Nothing
Set MSHFlexGrid1.DataSource = rs
End Sub
uj5u.com熱心網友回復：
運行后，提示引數型別不對，找不到問題點uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim SSQL As String
Set MSHFlexGrid1.DataSource = Nothing
SSQL = "select * from 學生 where 學號='" & Text1.Text & "'"
Adodc12.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\盛科電子\VB study\database12.mdb;Persist Security Info=False"
Adodc12.RecordSource = SSQL
Adodc12.Refresh
Set MSHFlexGrid1.DataSource = Adodc12
End Sub
uj5u.com熱心網友回復：
運行出現找不到可安裝的ISAMuj5u.com熱心網友回復：
先在設計模式下通過設定控制元件屬性的方式系結成功。再來改為通過陳述句動態設定的方式系結。
uj5u.com熱心網友回復：
不知道怎么操作。控制元件屬性的方式系結沒發現有什么問題uj5u.com熱心網友回復：
把 Adodc12、MSHFlexGrid1 洗掉后重新添加，設定控制元件屬性的方式系結。再洗掉后重新添加，動態設定的方式系結。
uj5u.com熱心網友回復：
這沒頭沒腦的, 讓大家猜么.uj5u.com熱心網友回復：
@tiger_zhao 謝謝，已經搞定，資料庫連接多個空格uj5u.com熱心網友回復：
總分不夠，結不了貼
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/63953.html
標籤：VB基礎類
上一篇：vba回圈賦值
下一篇：vb webbrowser求助