vb6查询：如何打开表格，在文本框中声明

Question

private Command1_Click() 

     Dim a as string 

     a = text1.text 
     OpenQuery "SELECT * FROM a WHERE Chair;" 

     txtChair.Text = myRs.Fields(0).Value 

     myRs.MoveNext 
    loop 

end sub 

Answer 1

您的代码示例缺少开放Do语句，可能是超出站点。另外，@nabuchodonossor是正确的，至多循环结束时，最后一条记录的字段（0）的值将位于txtChair.Text中。但是你要求帮助的是建立一个单一的字符串查询，在这里你用一个变量值代替部分字符串。

Private Command1_Click() 
    Dim a as string 

    a = text1.text 
    'this query isn't right, but not sure what to do with it 
    'this is something like normally "WHERE Field = 'Chair'" 
    OpenQuery "SELECT * FROM " & a & " WHERE Chair;" 'The & concatenates the separate strings 

    Do While rs.EOF = False 
     txtChair.Text = myRs.Fields(0).Value 
     myRs.MoveNext 
    Loop 

End Sub 

MSDN link to the & Operator