QUERY1: FIELD '=' NOT FOUND
Publicado por XYZ (2 intervenciones) el 12/03/2010 18:11:22
procedure TForm5.Button1Click(Sender: TObject);
begin
query1.Close;
query1.sql.clear;
query1.SQL.TEXT:='update BLIBROS set (AREA = '+quotedstr(edit1.texT) +
', FOLIO = '+quotedstr(edit2.text) +
', TITULO = '+quotedstr(edit3.text)+
', AUTOR:= '+QUOTEDSTR(edit4.text)+
', EDICION:= '+quotedstr(edit5.text)+
', EDITORIAL:= '+quotedstr(edit6.text)+
', ISBN:= '+QUOTEDSTR(EDIT7.TEXT)+
', PAIS:= '+QUOTEDSTR(EDIT8.TEXT)+
', TEMA_1;= '+QUOTEDSTR(EDIT9.TEXT)+
', TEMA_2 := '+QUOTEDSTR(EDIT10.TEXT)+ ') '; ;
query1.ExecSQL;
end;
NO ENTIENDO por que me sale ese error ¿Cual es el problema ahi? y como puedo solucionarlo? gracias
procedure TForm3.Button1xClick(Sender: TObject);
begin
form5.Edit1.Text:=query1.fieldbyname('AREA').AsString;
form5.Edit2.Text:=query1.FieldByName('FOLIO').AsString;
form5.Edit3.Text:=query1.FieldByName('TITULO').AsString;
form5.Edit4.Text:=query1.FieldByName('AUTOR').AsString;
FORM5.Edit5.Text:=QUERY1.FieldByName('EDICION').AsString;
form5.edit6.Text:=query1.FieldByName('EDITORIAL').AsString;
form5.Edit7.Text:=query1.FieldByName('ISBN').AsString;
form5.edit8.text:=query1.FieldByName('PAIS').AsString;
form5.Edit9.Text:=query1.FieldByName('TEMA_1').AsString;
FORM5.Edit10.Text:=QUERY1.FieldByName('TEMA_2').AsString;
form5.ShowModal;
end;
begin
query1.Close;
query1.sql.clear;
query1.SQL.TEXT:='update BLIBROS set (AREA = '+quotedstr(edit1.texT) +
', FOLIO = '+quotedstr(edit2.text) +
', TITULO = '+quotedstr(edit3.text)+
', AUTOR:= '+QUOTEDSTR(edit4.text)+
', EDICION:= '+quotedstr(edit5.text)+
', EDITORIAL:= '+quotedstr(edit6.text)+
', ISBN:= '+QUOTEDSTR(EDIT7.TEXT)+
', PAIS:= '+QUOTEDSTR(EDIT8.TEXT)+
', TEMA_1;= '+QUOTEDSTR(EDIT9.TEXT)+
', TEMA_2 := '+QUOTEDSTR(EDIT10.TEXT)+ ') '; ;
query1.ExecSQL;
end;
NO ENTIENDO por que me sale ese error ¿Cual es el problema ahi? y como puedo solucionarlo? gracias
procedure TForm3.Button1xClick(Sender: TObject);
begin
form5.Edit1.Text:=query1.fieldbyname('AREA').AsString;
form5.Edit2.Text:=query1.FieldByName('FOLIO').AsString;
form5.Edit3.Text:=query1.FieldByName('TITULO').AsString;
form5.Edit4.Text:=query1.FieldByName('AUTOR').AsString;
FORM5.Edit5.Text:=QUERY1.FieldByName('EDICION').AsString;
form5.edit6.Text:=query1.FieldByName('EDITORIAL').AsString;
form5.Edit7.Text:=query1.FieldByName('ISBN').AsString;
form5.edit8.text:=query1.FieldByName('PAIS').AsString;
form5.Edit9.Text:=query1.FieldByName('TEMA_1').AsString;
FORM5.Edit10.Text:=QUERY1.FieldByName('TEMA_2').AsString;
form5.ShowModal;
end;
Valora esta pregunta


0