str1:='select * from'+' '''+tablename+''''+ 'where 日期 like '+
' '''+Edit1.text+''' '+ ''%'';
sql.add(str);
/*************************************/
/*1、MY TOOL:*************************/
/*2、Delphi,Oracle,Sybase,C++/C*******/
/*3、PROJECT:*************************/
/*3、Boss*****************************/
/*4、为了五星的目标希望你早点结贴*********/
/*5、在线技术讨论(QQ):68123095*********/
/*************************************/
' '''+Edit1.text+''' '+ ''%'';
sql.add(str);
/*************************************/
/*1、MY TOOL:*************************/
/*2、Delphi,Oracle,Sybase,C++/C*******/
/*3、PROJECT:*************************/
/*3、Boss*****************************/
/*4、为了五星的目标希望你早点结贴*********/
/*5、在线技术讨论(QQ):68123095*********/
/*************************************/
解决方案 »
- 库存更新的问题
- 请问 怎样将网格中的数据导入到EXCEL呀??
- 做音频视频捕获传输可以在哪找到好的资料呀?
- 查看字母的ascii碼是哪個函數?謝謝
- 请问如何将edit.text中的内容赋值给DBgrid?(我晕我分没了)
- 如何在已知的月份上加1
- 关于dconconnection连接?
- 用OLE容器控件打开EXCEL/WORD等文件(客户快速浏览办公文件),速度太慢,有办法提高速度吗?或者有类似的快速查看文件的文件浏览器吗?
- 什么是TNotifyEvent和TIndexEvent?
- 关于delphi中cannot creat file 问题?
- nmstrmserv可以做多线程吗??
- 用installshield 6.22做安装程序的问题........
姓名 日期
111 20020601
222 20020621
222 20021208
4444 20020620
现在我在一个form里面给别人在edit1.text 里面输入日期如200206就查询
200206月份的所有记录显示出来?
begin
query1.SQL.Clear;
query1.SQL.Add('select * from ''表.db'' where 日期字段 between :date and :date1');
query1.ParamByName('date').AsDate:=小的日期;
query1.ParamByName('date1').AsDate:=大的日期;
query1.Active:=true;
end;
query1.SQL.Clear;
query1.SQL.Add('select * from yourtable ');
query1.SQL.Add(' where yourfield like :yourparam ');
query1.ParamByName('yourparam').value := Trim(exit1.text)+'%';
query1.Prepared;
query1.Open;
query1.SQL.Clear;
query1.SQL.Add('select * from TableName where 日期字段 between :date and :date1');
query1.ParamByName('date').Asstring:=copy(edit1.text,1,4)+copy(edit1.text,5,2)+'01'
query1.ParamByName('date1').Asstring:=copy(edit1.text,1,4)+copy(edit1.text,5,2)+'31'
query1.open;