怎么把查询纪录在mshflexgrid显示

Question

Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim str As String
    Dim strSql As String
    str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password = password;Initial Catalog=dmd;Data Source=USTC-CHENLUFENG"
    Set conn = New ADODB.Connection
    conn.Open (str)
    strSql = "SELECT from home where name= 'txtName.Text'"
    rs.Open strSql, cnnn, adOpenStatic, adLockOptimistic    ---->这句出错!
    Set ms.DataSource = rs
    conn.Cancel
    rs.Cancel

Answer 1

假设：MSG为MshFlexGrid
MSG.Rows   '总行数
MSG.Cols   '总列数
MSG.TextMatrix(Row,Col)="内容"
MSG.RowHeight   '设定行高
MSG.ColWidth     '设定列宽
MSG.FixedCols      '设定固定列数
MSG.FixedRows      '设定固定行数

Answer 2

strSql = "SELECT from home where name= 'txtName.Text'"
TxtName如果是TextBox的话改为
strSql = "SELECT from home where name= txtName.Text"
即可，引用对象值或变量不用加单引号

Answer 3

楼上的!
应该是下面这样吧!strSql="SELECT from home where name='" & txtName.Text & "'"

Answer 4

上面的错了
应该是
引用对象值或变量的时候，应改为
strSql = "SELECT from home where name='" & txtName.Text & "'"

Answer 5

Private Sub comCha_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim str As String
    Dim strSql As String
    str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password = password;Initial Catalog=dmd;Data Source=USTC-CHENLUFENG"
    Set conn = New ADODB.Connection
    conn.Open (str)
    strSql = "SELECT from home where name='" & txtName.Text & "'"
    rs.Open strSql, cnnn, adOpenStatic, adLockOptimistic  ----错误依旧！
    Set ms.DataSource = rs
    
    conn.Cancel
    rs.Cancel
End Sub

Answer 6

我只想把我那个sql查询结果显示到MSHFlexGrid里!但是一点那个按钮那里就出错

Answer 7

"SELECT * from home where name='" & txtName.Text & "'"
少了字段名称

Answer 8

Private Sub comCha_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim str As String
    Dim strSql As String
    str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password = password;Initial Catalog=dmd;Data Source=USTC-CHENLUFENG"
    Set conn = New ADODB.Connection
    conn.Open (str)
    strSql = "SELECT * from home where name='" & txtName.Text & "'"  -------兄弟们，还是不行。
    rs.Open strSql, cnnn, adOpenStatic, adLockOptimistic
    Set ms.DataSource = rs
    
    conn.Cancel
    rs.Cancel
End Sub

Answer 9

rs.Open strSql, cnnn, adOpenStatic, adLockOptimistic
cnnn-〉conn

Answer 10

Private Sub comCha_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim str As String
    Dim strSql As String
    str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password = password;Initial Catalog=dmd;Data Source=USTC-CHENLUFENG"
    Set conn = New ADODB.Connection
    conn.Open (str)
    strSql = "SELECT * from home  where name='" & txtName.Text & "'"
    Call rs.Open(strSql, conn, adOpenDynamic, adLockOptimistic)
    Adodc1.RecordSource = strSql  \________这样写就没问题了!
    Set ms.DataSource = Adodc1    /
    
    ms.Refresh
    conn.Cancel
    rs.Cancel
End Sub
我终于解决这个问题了,现在这个表可以正常运行了.谢谢大家的帮忙!我的问题好像处在adodc1的属性设置上了,我这个mshflexgrid是打算现实查询结果的，但是我开始adodc1设置的是“2-adCmdTable”应该社成“1-adCmdText”就可以了。