Ayuda en sql
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
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