Me podrías ayudar a crear una búsqueda por textbox
Hola experto, ante todo gracias por tu ayuda mi problema es que vengo desarrollando un programita para llevar un control de inventario de tintas, pero necesito crear una búsqueda por medio de 3 textbox, Marca de Impresora, tipo de tinta y por departamento, la respuesta me la debe desplegar en un datagrid, la BD es de access y no me sale bien PODRÍAS DARME UNA MANO
1 Respuesta
Respuesta de xabi
1
Un poco de tu código no me vendría mal para saber como lo haces y cual podría ser el problema, de todas formas esta puede ser una idea:
'rcset es un Recordset
'txt1, txt2 y txt3 son los textbox
'... el resto creo que esta claro
dim sSQL as string
dim s1 as string
dim s2 as string
dim s3 as string
if txt1.text<>"" then
s1="Marca ='" & txt1 & "' AND "
if txt2.text<>"" then
s2="Tipo ='" & txt2 & "' AND "
if txt3.text<>"" then
s3="Dpto ='" & txt3 & "'"
sSQL=s1 & s2 & s3
if right(sSQL,5)=" AND " then sSQL=mid(sSQL,1,len(sSQL)-5)
if sSQL<>"" then
sSQL="SELECT * FROM Tintas WHERE " & sSQL
else
sSQL="SELECT * FROM Tintas"
endif
rcset.source=sSQL
rcset.open
set datagrid.datasource =rcset
Esto, más o menos, ya que lo he escrito sobre la marcha, te podría ayudar.
'rcset es un Recordset
'txt1, txt2 y txt3 son los textbox
'... el resto creo que esta claro
dim sSQL as string
dim s1 as string
dim s2 as string
dim s3 as string
if txt1.text<>"" then
s1="Marca ='" & txt1 & "' AND "
if txt2.text<>"" then
s2="Tipo ='" & txt2 & "' AND "
if txt3.text<>"" then
s3="Dpto ='" & txt3 & "'"
sSQL=s1 & s2 & s3
if right(sSQL,5)=" AND " then sSQL=mid(sSQL,1,len(sSQL)-5)
if sSQL<>"" then
sSQL="SELECT * FROM Tintas WHERE " & sSQL
else
sSQL="SELECT * FROM Tintas"
endif
rcset.source=sSQL
rcset.open
set datagrid.datasource =rcset
Esto, más o menos, ya que lo he escrito sobre la marcha, te podría ayudar.
