FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
Validar dos campos
Hola a todos,
estoy utilizando delphi 7 y mis tablas estan en access el campo fecha esta definido como texto y el campo codigo_establecimiento definido tambien de texto, y trato de realizar la siguiente consulta: procedure TFrm_Mov_Huespedes.Tbl_Mov_HuespedesFecha_HuespedesChange( Sender: TField); var ls_Fecha : string; ls_Codigo : string; begin ls_Fecha := Tbl_Mov_Huespedes.FieldbyName('fecha_huespedes').AsString; ls_Codigo := Tbl_Mov_Huespedes.FieldbyName 'codigo_establecimiento').AsString; Qry_Busca_Fecha.Close; with qry_Busca_Fecha do begin with sql do begin clear; add ('select * from Mov_Huespedes'); add ('where fecha_huespedes = '); add (''''+ls_Fecha+''''); add ('where codigo_establecimiento ='); add (''''+ls_Codigo+''''); open; if not(Dts_Mov_Huespedes.State in [dsinsert]) then Exit; if recordcount <> 0 then begin ShowMessage('Esta Fecha en Movimiento Huespedes, esta asignada !!!!!!'); Abort; end; end; end; end; nota: compila bien, pero cuando lo corro y va a ejecutar el qry dice - error en qry - si por favor me pueden echar una mano alcides Rep.Dom. |
#2
|
|||
|
|||
Hola
El problema es que usas dos where en la misma consulta, supongo que lo que quieres hacer es lo siguiente:
un saludo |
#3
|
||||
|
||||
Gracias basti
funciono perfectamente Alcides Rep.Dom. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|