Ayuda en sql

Alexforo
29 de Enero del 2004
Hola que tal miren estoy haciendo una consulta a traves de sql a traves de un combobox y los reflejo enlos tect los campos, miren mi codigo es el siguiente

Private Sub Form_Load()

Dim dbname As String
Dim db As Database
Dim rs As Recordset

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "" Then dbname = dbname & ""
dbname = dbname & "clientes.mdb"

Set db = OpenDatabase(dbname)
Set rs = db.OpenRecordset( _
"SELECT nombre_dominio1 FROM tabla1 ORDER BY nombre_dominio1", _
dbOpenSnapshot)

' Load the ComboBox.
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem rs!nombre_dominio1
rs.MoveNext
Loop

rs.Close
db.Close

' Connect the Data control to the database.
Data1.DatabaseName = dbname

' Select the first choice.
Combo1.ListIndex = 0

End Sub


cuando se le da click al combobox muestra los campos de la tabla, este es el codigo

Private Sub Combo1_Click()

' Load the selected record.
Data1.RecordSource = _
"SELECT * FROM Tabla1 WHERE nombre_dominio1='" & _
Combo1.Text & "'"
Data1.Refresh

End Sub


Mi problema es, como le hago para querer que tome2 campos en vez de 1 solo a la hora de consultar, habia hecho esta instruccion pero no me los muestra
"SELECT nombre_dominio1 AND nombre_dominio2 FROM tabla1 ORDER BY nombre_dominio1", _
dbOpenSnapshot)

Espero me ayuden gracias

Bartolom
29 de Enero del 2004
En vez del AND, debes colocar una coma
O sea:

SELECT nombre_dominio1, nombre_dominio2 FROM tabla1 ORDER BY nombre_dominio1

No sé si eso es lo que necesitas, porque no entendí bien tu pregunta.
Saludos!