Como pasar parámetros en a una rutina con SQL
Hola a todos espero puedan ayudarme estoy tratando de ejecutar este SQL en access
Pero no logro que se ejecute correctamente.
Este SQL debo correrlo n veces tantas filiales tenga y el usuario tiene que pasar el parámetro para que esta rutina se ejecute para las filiales.
Public Sub ventas()
Dim nofilial As Integer
Dim strSQL As Integer
nofilial = InputBox("Filial")
strSQL = "select * from ventas where filial=& nofilial"
DoCmd.RunSQL strSQL
End Sub
Agradezco su apoyo
Gracias
Pero no logro que se ejecute correctamente.
Este SQL debo correrlo n veces tantas filiales tenga y el usuario tiene que pasar el parámetro para que esta rutina se ejecute para las filiales.
Public Sub ventas()
Dim nofilial As Integer
Dim strSQL As Integer
nofilial = InputBox("Filial")
strSQL = "select * from ventas where filial=& nofilial"
DoCmd.RunSQL strSQL
End Sub
Agradezco su apoyo
Gracias
1 Respuesta
Respuesta de jclaveria
1
Tu escribes...
Hola a todos espero puedan ayudarme estoy tratando de ejecutar este SQL en access
pero no logro que se ejecute correctamente.
Este SQL debo correrlo n veces tantas filiales tenga y el usuario tiene que pasar el parámetro para que esta rutina se ejecute para las filiales.
Public Sub ventas()
Dim nofilial As Integer
Dim strSQL As Integer
nofilial = InputBox("Filial")
strSQL = "select * from ventas where filial=& nofilial"
DoCmd.RunSQL strSQL
End Sub
Tienes que cambiar la cena strSQL por esta otra:
strSQL = "select * from ventas where filial= " & nofilial
El detalle lo tienes en las comillas, la parte nofilial debe ir fuera
Hola a todos espero puedan ayudarme estoy tratando de ejecutar este SQL en access
pero no logro que se ejecute correctamente.
Este SQL debo correrlo n veces tantas filiales tenga y el usuario tiene que pasar el parámetro para que esta rutina se ejecute para las filiales.
Public Sub ventas()
Dim nofilial As Integer
Dim strSQL As Integer
nofilial = InputBox("Filial")
strSQL = "select * from ventas where filial=& nofilial"
DoCmd.RunSQL strSQL
End Sub
Tienes que cambiar la cena strSQL por esta otra:
strSQL = "select * from ventas where filial= " & nofilial
El detalle lo tienes en las comillas, la parte nofilial debe ir fuera
Agradezco tu ayuda hice el cambio como me lo comentaste pero me manda el siguiente error al ejecutarlo
"se ha producdo el error '13' en tiempo de ejecución: no coinciden los tipos"
Pensando en que la bd estaba definido mal lo valide y este es un campo entero y no veo porque me manda ese error.
Espero puedas auxiliarme
Gracias
"se ha producdo el error '13' en tiempo de ejecución: no coinciden los tipos"
Pensando en que la bd estaba definido mal lo valide y este es un campo entero y no veo porque me manda ese error.
Espero puedas auxiliarme
Gracias
No me he dado cuenta antes, pero fíjate en la declaración de la variable strSQL, la tienes como Integer y claramente debería ser un string
