W
wxm337766
Unregistered / Unconfirmed
GUEST, unregistred user!
ADO1.Close;
ADO1.SQL.Clear;
ADO1.SQL.Add('select 图书编号,租金数额 from 图书信息 A,租金分类 B' );
ADO1.SQL.Add('where (A.图书编号= :图书编号)and A.租金类型=B.租金类型');
ADo1.Parameters.ParamByName('图书编号').Value:=edit1.Text;
ADO1.Open;
s:=ADo.fieldbyname('租金数额').AsString;
显示没有‘租金数额'这个字段??
那里出错?
ADO1.SQL.Clear;
ADO1.SQL.Add('select 图书编号,租金数额 from 图书信息 A,租金分类 B' );
ADO1.SQL.Add('where (A.图书编号= :图书编号)and A.租金类型=B.租金类型');
ADo1.Parameters.ParamByName('图书编号').Value:=edit1.Text;
ADO1.Open;
s:=ADo.fieldbyname('租金数额').AsString;
显示没有‘租金数额'这个字段??
那里出错?