I'm trying to fill a TDBCombo box with information from a database. I have the appropriate SQL query and update in place but when I run the app I get a EDatabaseError with message 'CallBackQ: Field 'BackIndex' not found'. The code below is in place on form create and is the place that is highlighted after I hit OK from the error message. Does anyone know what's going on?
Thanks.
Pat
procedure TForcedCall.FormCreate(Sender: TObject);
begin
CallBackQ.Close;
CallBackQ.Prepare;
CallBackQ.OpenDatabase;
if(length(CallBackQ.FieldByName('BACKINDEX').AsString)=1) then
CallBackCB.Text:='0'+CallBackQ.FieldByName('BACKINDEX').AsString
else
CallBackCB.Text:=CallBackQ.FieldByName('BACKINDEX').AsString;
Thanks.
Pat
procedure TForcedCall.FormCreate(Sender: TObject);
begin
CallBackQ.Close;
CallBackQ.Prepare;
CallBackQ.OpenDatabase;
if(length(CallBackQ.FieldByName('BACKINDEX').AsString)=1) then
CallBackCB.Text:='0'+CallBackQ.FieldByName('BACKINDEX').AsString
else
CallBackCB.Text:=CallBackQ.FieldByName('BACKINDEX').AsString;