var
begintime: Tdatetime;
endtime : Tdatetime; procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
Try
ADOQuery1.Parameters.ParamByName('begintime').Value := DateTimePicker1.DateTime;
ADOQuery1.Parameters.parambyname('endtime').Value := DateTimePicker2.DateTime;
ADOQuery1.sql.Add('select * from Table1 where call =''' +Edit2.Text+''' and begin <:endtime and begin > : begintime');
except
ADOQuery1.SQL.Clear;
ADOQuery1.sql.Add('select * from Table1 where call ='''+Edit2.Text+'''');
end;
ADOQuery1.Open;
ADOQuery1.Active := True;
end;
有错误!!没有找到"begintime" 我已经定义过SQL变量begintime和endtime了 不知道为什么?
begintime: Tdatetime;
endtime : Tdatetime; procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
Try
ADOQuery1.Parameters.ParamByName('begintime').Value := DateTimePicker1.DateTime;
ADOQuery1.Parameters.parambyname('endtime').Value := DateTimePicker2.DateTime;
ADOQuery1.sql.Add('select * from Table1 where call =''' +Edit2.Text+''' and begin <:endtime and begin > : begintime');
except
ADOQuery1.SQL.Clear;
ADOQuery1.sql.Add('select * from Table1 where call ='''+Edit2.Text+'''');
end;
ADOQuery1.Open;
ADOQuery1.Active := True;
end;
有错误!!没有找到"begintime" 我已经定义过SQL变量begintime和endtime了 不知道为什么?
看过龟和狙击在delphi倒过分啊 呵呵
ADOQuery1:parameter'begintime' not found