select BenHang.GF_Notedata,BenHang.GF_NoteNumber from BenHang,FaYuan where BenHang.GF_NoteNumber = FaYuan.FY_NoteNumber and BenHang.GF_Notedata between #'+formatdatetime('yyyy/mm/dd',DateTimePicker1.Date)+'# and #'+formatdatetime('yyyy/mm/dd',DateTimePicker2.Date)+'#'有什么错吗?
begin
close;
slq.clear;sql.add(' select BenHang.GF_Notedata,BenHang.GF_NoteNumber from BenHang,FaYuan where BenHang.GF_NoteNumber = FaYuan.FY_NoteNumber and BenHang.GF_Notedata between ');
sql.add(:date1 and :date2 ) ;
Parameters.ParamByName('date1').value :=datetostr(datetimepicker1.date);
Parameters.ParamByName('date1').value :=datetostr(datetimepicker2.date);open;end;
begin
close;
slq.clear;sql.add(' select BenHang.GF_Notedata,BenHang.GF_NoteNumber from BenHang,FaYuan where BenHang.GF_NoteNumber = FaYuan.FY_NoteNumber and BenHang.GF_Notedata between ');
sql.add(:date1 and :date2 ) ;
Parameters.ParamByName('date1').value :=datetostr(datetimepicker1.date);
Parameters.ParamByName('date2').value :=datetostr(datetimepicker2.date);open;end;
begin
close;
sql.clear;sql.add(' select BenHang.GF_Notedata,BenHang.GF_NoteNumber from BenHang,FaYuan where BenHang.GF_NoteNumber = FaYuan.FY_NoteNumber and BenHang.GF_Notedata between ');
sql.add(:date1 and :date2 ) ;
Parameters.ParamByName('date1').value :=datetostr(datetimepicker1.date);
Parameters.ParamByName('date2').value :=datetostr(datetimepicker2.date);open;end;
是字符类型的?
var sqlstr:string;
begin
sqlstr:='select BenHang.GF_Notedata,BenHang.GF_NoteNumber from BenHang,FaYuan
where BenHang.GF_NoteNumber = FaYuan.FY_NoteNumber and BenHang.GF_Notedata
between '+#39+formatdatetime('yyyy/mm/dd',DateTimePicker1.Date)+
' and '+#39+formatdatetime('yyyy/mm/dd',DateTimePicker2.Date)+#39;
end;
编译时看到的是这样的字符串就对了:
'select BenHang.GF_Notedata,BenHang.GF_NoteNumber
from BenHang,FaYuan
where BenHang.GF_NoteNumber = FaYuan.FY_NoteNumber and BenHang.GF_Notedata
between ''1999/04/01'' and ''2004/04/16'' '
ACCESS数据库有些什么特别的地方要注意吗?