VB中 MSHFlexGrid1的查找

Question

Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim SSQL As String
Set rs = New ADODB.RecordsetAdodc12.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, adLockReadOnlySet MSHFlexGrid1.DataSource = Nothing
Set MSHFlexGrid1.DataSource = rsEnd Sub

Answer 1

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

Answer 2

运行出现找不到可安装的ISAM

Answer 3

把 Adodc12、MSHFlexGrid1 删除后重新添加，设置控件属性的方式绑定。
再删除后重新添加，动态设置的方式绑定。

Answer 4

@tiger_zhao 谢谢，已经搞定，数据库连接多个空格