Hola amigos... quiero hacer una consulta de como podria optimar más este código...
Datos -> Formulario de tipo DataModule
AQ_Select -> ADOQuery
vBus -> TEdit
CB_Buscar -> ComboBox
Código Delphi
[-]
Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add('Select * From Socio');
If CB_Buscar.ItemIndex = 0 Then
Begin
Datos.AQ_Select.SQL.Add('Where Soc_Rut Like'+QuotedStr('%'+vBus.Text+'%'));
End
Else If CB_Buscar.ItemIndex = 1 Then
Begin
Datos.AQ_Select.SQL.Add('Where Soc_Nombre Like'+QuotedStr('%'+vBus.Text+'%'));
End
Else If CB_Buscar.ItemIndex = 2 Then
Begin
Datos.AQ_Select.SQL.Add('Where Soc_Apellido Like'+QuotedStr('%'+vBus.Text+'%'));
End;
Datos.AQ_Select.Open;
La idea es que tengo un ComboBox, en donde tengo 3 Campos... entonces yo puedo selecionar si quiero buscar a un Socio por Rut (DNI), Nombre o Apellido, entonces utilizo un TEdit y ejecuto la consulta a través de un ADOQuery
Si bien la consulta me funciona super, es para evitar tener que escribir preguntas del Tipo
If,.... y si en caso me llegara a tocar una consulta parecidad pero con unos 20 campos..(exageracion)