数据库中条件选择记录显示在 MSHFlexGrid控件中，帮忙看看吧！谢谢！

Question

数据库中有多条记录，我想选择特定的记录显示在MSHFlexGrid控件中，下面是代码。有错误，帮忙看看！
Dim rs As ADODB.Recordset    Set rs = New ADODB.Recordset
    
     rs.Open "select from 表1 where 姓名='" & Trim(Text1.Text) & "'and 工作单位='" & Trim(Combo1.Text) & "'"
   
    
    Set MSHFlexGrid1.DataSource = rs.DataSource
    MSHFlexGrid1.Refresh
   
 
   rs.Close

Answer 1

rs.open " select from 表1 where 姓名='" & Trim(Text1.Text) & "'and 工作单位='" & Trim(Combo1.Text) & "'" , cn     '<----------------cn是数据库连接对象

Answer 2

Set MSHFlexGrid1.DataSource = rs   就OK了

Answer 3

rs.open "SQL语句", CN,3,3
Set MSHFlexGrid1.DataSource = rs应该OK了

Answer 4

我按各位的意思改了还是不行，出现实时错误'424'要求对象
 rs.Open "select from 表1 where 姓名='" & Trim(Text1.Text) & "'and 工作单位='" & Trim(Combo1.Text) & "'"

Answer 5

if rs.state=adstateopen then rs.close
 rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 工作单位='" & Trim(Combo1.Text) & "'",conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close

Answer 6

哥们程序能正常运行了，可是mshflexgrid1不显示内容，晕了！

Answer 7

那就是查询出来的数据为空记录集合！
set mshflexgrid1.datasource=rs
 如果有上面的语句，且rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 工作单位='" & Trim(Combo1.Text) & "'",conn,adopenkeyset,adlockreadonly
运行正确只有解吸为没有符合条件的数据

Answer 8

动态的帮定，在一个界面，放了一个Text1控件、Combo1控件、一个command按钮一个MSHFlexGrid1控件，从表1中找出符合条件的记录显示在MSHFlexGrid1中，Private Sub Command1_Click()
Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
    If rs.State = adStateOpen Then
 rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 单位名称='" & Trim(Combo1.Text) & "'", Conn, adOpenKeyset, adLockReadOnly
    Set MSHFlexGrid1.DataSource = rs    
     MSHFlexGrid1.Refresh
      
  rs.Close
End If
End Sub查询了数据库中存在的数据，MSHFlexGrid1控件中还是不显示。是不是我的代码不应该放在这个事件中，初学还请各位多多指教！

Answer 9

If rs.State = adStateOpen Then
 rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 单位名称='" & Trim(Combo1.Text) & "'", Conn, adOpenKeyset, adLockReadOnly
-------------------------
Then后面少了 rs.Close 
If rs.State = adStateOpen Then rs.Close
 rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 单位名称='" & Trim(Combo1.Text) & "'", Conn, adOpenKeyset, adLockReadOnly

Answer 10

Private Sub Command1_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    If rs.State = adStateOpen Then rs.Close    rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 单位名称='" & Trim(Combo1.Text) & "'", Conn, adOpenKeyset, adLockReadOnly    Set MSHFlexGrid1.DataSource = rs    
    MSHFlexGrid1.Refresh
    rs.Close
    Set rs=Nothing
End Sub

Answer 11

If rs.State <> adStateOpen Then
 rs.Open "select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 单位名称='"  &  Trim(Combo1.Text) & "'", Conn, adOpenKeyset, adLockReadOnly
 Set MSHFlexGrid1.DataSource = rs    
 MSHFlexGrid1.Refresh
 rs.Close
End If

Answer 12

你要小心　你的select * from 表1 where 姓名='" & Trim(Text1.Text) & "' and 单位名称='"  &  Trim(Combo1.Text) & "'"　and前面必须要有空格