FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
NO ENTRA -> if Enum.Text = adoquery1.FieldByName('numero').AsString then
hola que tal
no eh podido hayar el problema por que no me entra a un if. esta es la cuestion hise esta pequeña consulta con el componete zeos Código:
if key = 13 then begin zquery1.SQL.Clear; zquery1.SQL.Add('select * from clientes where numero='+quotedstr(enum.Text)+''); zquery1.Active:=true; if enum.Text = zquery1.FieldByName('numero').AsString then begin enom.Text := zquery1.FieldByName('nombre').AsString; EDir.text:=zquery1.fieldbyname('direccion').asstring; bcancelar.SetFocus; beliminar.Enabled:=true; bmodificar.Enabled:=true; end else begin enom.SetFocus; bguardar.Enabled:=true; end; end; ahora lo hise con el ADO que quedo asi: Código:
if key = 13 then begin adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from clientes where numero='+quotedstr(enum.Text)+''); adoquery1.Active:=true; if Enum.Text = adoquery1.FieldByName('numero').AsString then begin enom.Text := adoquery1.FieldByName('nombre').AsString; EDir.text:=adoquery1.fieldbyname('direccion').asstring; bcancelar.SetFocus; beliminar.Enabled:=true; bmodificar.Enabled:=true; end else begin enom.SetFocus; bguardar.Enabled:=true; end; pero no entra en el if sem ehase muy rarro Código:
if Enum.Text = adoquery1.FieldByName('numero').AsString then cual quier ayuda se los agradeseria mucho saludos |
|
|
|