no encuentro el error

miguel
09 de Febrero del 2006
Hola a todos,

os cuento mi problema. Tengo una aplicación con un datagrid y un combo a través de un adodc.

Lo que quiero es que según ponga un dato en el combo el datagrid me muestre un resultado u otro.

Para ello hago lo siguiente:

Private Sub Command4_Click()

Adodc1.RecordSource = "select distinct mes as MES, fecha as FECHA from pagos where mes=" & Combo1.Text

Adodc1.Refresh
End Sub

Me sale un error diciendo que "no se ha especificado valores para alguno de los parámetros requeridos". Sé que el fallo tiene que estar aquí --- "where mes=" & Combo1.Text " , porque si pongo:

Private Sub Command4_Click()

Adodc1.RecordSource = "select distinct mes as MES, fecha as FECHA from pagos

Adodc1.Refresh
End Sub

no hay ningún problema.

Le he dado muchas vueltas y no doy con la tecla.

¿Se os ocurre algo?

Muchas grcias.

Un saludo.

axelopez
09 de Febrero del 2006
Ya provaste hacer el query

Adodc1.RecordSource = "select distinct mes as MES, fecha as FECHA from pagos where mes = 1"

y ves si funciona

ademas verifica que valores esta retornando el combo

axelopez
09 de Febrero del 2006
Las diagonales las eliminas