busqueda con sql
Publicado por auro (8 intervenciones) el 17/04/2002 09:43:17
Necesito ayuda! Estoy haciendo una busqueda con sql, para que me busque en una tabla lo que voy seleccionando en combos de un formulario, pero como puede que en algunos combos no elija nada y esten vacios he puesto lo siguiente para comparar cada combo. El caso es que me da error me dice "pocos parametros se esperaba 1" que puede ser ? que tengo mal? por favor que alguien me ayude no se que hacer ya.
este es el codigo:
sql = "select maquinas.NumMaquina from maquinas where true"
If Form_FormBusquedaDeMaquinas.cmbRpm.Value <> "" Then
sql = sql & " and idRpm=" & Form_FormBusquedaDeMaquinas.cmbRpm.Value
End If
If Form_FormBusquedaDeMaquinas.cmbOrientEje.Value <> "" Then
sql = sql & " and [idOrientEje]=" & Form_FormBusquedaDeMaquinas.cmbOrientEje.Value
End If
If Form_FormBusquedaDeMaquinas.cmbMesaGiratoria.Value <> "" Then
sql = sql & " and [idMesaGiratoria]=" & Form_FormBusquedaDeMaquinas.cmbMesaGiratoria.Value
End If
----------------------------
AQUI SE PARA EL CODIGO Y DA EL ERROR
---------------------------
Set rstMaquinas = dbslocal.OpenRecordset(sql)
If rstMaquinas.NoMatch Then
'Form_FormResulIgual.lstMaquina = "Máquina no encontrada"
MsgBox "Máquina no encontrada", vbInformation, "Fin de Busqueda"
Else
While Not rstMaquinas.EOF
lista = lista & rstMaquinas("NumMaquina") & ";"
rstMaquinas.MoveNext
Wend
lstMaquina.RowSourceType = "Lista de valores"
lstMaquina.RowSource = UCase(lista)
End If
End Sub
GRACIAS DE ANTEMANO.
este es el codigo:
sql = "select maquinas.NumMaquina from maquinas where true"
If Form_FormBusquedaDeMaquinas.cmbRpm.Value <> "" Then
sql = sql & " and idRpm=" & Form_FormBusquedaDeMaquinas.cmbRpm.Value
End If
If Form_FormBusquedaDeMaquinas.cmbOrientEje.Value <> "" Then
sql = sql & " and [idOrientEje]=" & Form_FormBusquedaDeMaquinas.cmbOrientEje.Value
End If
If Form_FormBusquedaDeMaquinas.cmbMesaGiratoria.Value <> "" Then
sql = sql & " and [idMesaGiratoria]=" & Form_FormBusquedaDeMaquinas.cmbMesaGiratoria.Value
End If
----------------------------
AQUI SE PARA EL CODIGO Y DA EL ERROR
---------------------------
Set rstMaquinas = dbslocal.OpenRecordset(sql)
If rstMaquinas.NoMatch Then
'Form_FormResulIgual.lstMaquina = "Máquina no encontrada"
MsgBox "Máquina no encontrada", vbInformation, "Fin de Busqueda"
Else
While Not rstMaquinas.EOF
lista = lista & rstMaquinas("NumMaquina") & ";"
rstMaquinas.MoveNext
Wend
lstMaquina.RowSourceType = "Lista de valores"
lstMaquina.RowSource = UCase(lista)
End If
End Sub
GRACIAS DE ANTEMANO.
Valora esta pregunta


0