Antonio
09 de Enero del 2004

tengo este codigo
pero me da error en el select no se si sera por las comillas etc.

Dim w As Integer
w = 100
Set BASE = OpenDatabase("C:PRACTICANOMINA")
Set REGISTRO = BASE.OpenRecordset("SELECT * FROM EMPLEADOS where sueldo = " & w & ", dbOpenDynaset, dbOptimistic")

por favor ayuda..

lorrich
09 de Enero del 2004

Dim w As Integer
w = 100
Set BASE = OpenDatabase("C:PRACTICANOMINA")
Set REGISTRO = BASE.OpenRecordset("SELECT * FROM EMPLEADOS where sueldo = " & w & ";", dbOpenDynaset, dbOptimistic")

Te faltaba el ; y cerrar esas ". Prueba a ver si funciona asi.

Antonio
09 de Enero del 2004

Habia intentado todo y no lo lograba,,te agradezco mucho tu fina atencion..

Antonio

lorrich
09 de Enero del 2004

Quitale las ultimas comillas tambien que no me habia fijado en ellas.

ito
09 de Enero del 2004

hola, creo que tu error esta en las "" yo trabajo un poco distinto a ti pero seria algo asi:

Set REGISTRO = BASE.OpenRecordset("SELECT * FROM EMPLEADOS where sueldo = ' " & w & " ' ")
suerte.

Baltasar
09 de Enero del 2004

No usen esa forma sin poner Cstr(), que luego dá problemas.

Set REGISTRO = BASE.OpenRecordset("SELECT * FROM EMPLEADOS where sueldo = " & cstr(w))

La variable w seguro que es numérica, y el campo sueldo también, con lo cual las comillas simples no sirven aquí.