vb6 query: как открыть таблицу, указанную в текстовом поле

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