vb6 query: Öffnen der Tabelle, die im Textfeld deklariert wurde

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

Ihr Codebeispiel fehlt eine öffnende Do Anweisung, möglicherweise eine Über-Site. Auch @nabuchodonossor ist korrekt, da im besten Fall am Ende der Schleife der Wert von field (0) für den letzten Datensatz in txtChair.Text steht. Worauf Sie jedoch nach Hilfe fragen, ist die Erstellung einer einzelnen String-Abfrage, bei der Sie einen Variablenwert für einen Teil der Zeichenfolge ersetzen.

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