Meter datos en grid desde BD en sql
Hola buenos tardes, no puedo meter los datos de una base de datos en sql mediante un combobox.
En el combobox selecciono un nombre de vendedor y en el grid necesito que es eponga una serie de datos de ese vendedor y no lo hace. Te pongo el código para que veas lo que hago
*este es el codigo que esta en el clik del combobox
buscaid=0
lex_=""
lex_=ALLTRIM(thisform.COMBO1.value)
SQLEXEC(conexion,"select * from vendedor where (nombre like '%"+lex_+"%')")
id_=clave
_nom=nombre
IF not empty(id_) then
thisform.grid1.SetFocus
buscaid=id_
ca="CANCELADA"
_verdad="T"
rnum=0
SQLEXEC(conexion,"select COUNT(factura) As nclav FROM tfacturas where vendedor=?buscaid")
rnum=nclav
activado="T"
_verdad="T"
SQLEXEC(conexion,"select * from tfacturas where vendedor=?buscaid order by referencia")
SELECT sqlresult
ELSE
thisform.combo1.SetFocus
ENDIF
Espero me puedan ayudar. Gracias este es mi correo [email protected]
En el combobox selecciono un nombre de vendedor y en el grid necesito que es eponga una serie de datos de ese vendedor y no lo hace. Te pongo el código para que veas lo que hago
*este es el codigo que esta en el clik del combobox
buscaid=0
lex_=""
lex_=ALLTRIM(thisform.COMBO1.value)
SQLEXEC(conexion,"select * from vendedor where (nombre like '%"+lex_+"%')")
id_=clave
_nom=nombre
IF not empty(id_) then
thisform.grid1.SetFocus
buscaid=id_
ca="CANCELADA"
_verdad="T"
rnum=0
SQLEXEC(conexion,"select COUNT(factura) As nclav FROM tfacturas where vendedor=?buscaid")
rnum=nclav
activado="T"
_verdad="T"
SQLEXEC(conexion,"select * from tfacturas where vendedor=?buscaid order by referencia")
SELECT sqlresult
ELSE
thisform.combo1.SetFocus
ENDIF
Espero me puedan ayudar. Gracias este es mi correo [email protected]
1 respuesta
Respuesta
1