Beckham
24 de Mayo del 2004

Deseo realizar una consulta SQL en Visual Basic. Teniendo un Combo con 2 opciones y en un Datagrid toda la informaci贸n de mi base de datos, deseo que al hacer un Clic en alguna opci贸n me muestre los resultados de esa opci贸n en el Datagrid. La base de datos esta enlazada por medio de un Dataenvironment

ATDA
24 de Mayo del 2004

No se si te entendi correctamente, suponiendo que te las opciones definen la seleccion de datos en una misma tabla o query puedes realizar lo siguiente:

dim VSQL as string
VSQL="select * from trabajadores"

'suponiendo que las opciones del combo son Activos, bajas o todos
' por default diremos que la opcion es todos
combo1.text="Todos"

en el evento boton_click escribe:

VSQL="select * from trabajadores "

select case combo1.text
case"Activos"
vsql=vsql & " where situacion=1"
case "Bajas"
vsql=vsql & " where situacion=2"
end select
'suponiendo que situacion es la columna que define el status del empleado y que 1 se refiere a activos 2 a las bajas

Data1.RecordSource = VSql
Data1.Refresh