delphi7 日期与SQL数据库表的日期作比较

我用以下的代码查到表，但是就是比较不了，我已经把日期改到表里面的其中一个日期，adoquery1.CLOSE;adoquery1.SQL.Clear ;adoquery1.SQL.Add('SELECT jdate FROM jiari WHERE (jstatus = 1)');adoquery1.OPEN;a:=formatdatetime('yyyy-mm-dd',now);b:=adoquery1.Fields[0].AsString;if a=b thenshowmessage(a);

答案：如果比较不了，可能的原因是;a:=formatdatetime('yyyy-mm-dd',now);所形成的格式是'yyyy-mm-dd'，而b:=adoquery1.Fields[0].AsString所形成的格式则跟你的系统的区域设置有关，也有可能是'yyyy/mm/dd'，建议你先显示一下adoquery1.Fields[0].AsString的值再来确定。
还有,adoquery1.Fields[0].AsString的值是有没有时间呢，因为日期字段可以保存的格式为：yyyy-mm-dd hh:mm:ss

其他：Unit Unit1;

Inte易做图ce

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

Type
  TForm1 = Class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    Procedure Button1Click(Sender: TObject);
  private
    
  public
    
  End;

Var
  Form1: TForm1;

Implementation



//SQL应该有文本数据的导入和导出，那是最好的方法，你可以先看看。

//自定义数据文件的导入：
//成功的关键在于文本的数据格式是否和数据库字段匹配

Procedure TForm1.Button1Click(Sender: TObject);
Var
  alist, blist: TStringList;
Begin
  alist := TStringList.Create;
  blist := TStringList.Create;

  Try
    //自定义格式的数据文件，加载前要判断文件是否存在
    alist.LoadFromFile('D:\DB.txt');
    If alist.Count = 0 Then
    Begin
      Exit;
    End;

    With TADOQuery.Create(Nil) Do
    Begin
      Try
        Close;
        SQL.Clear;
        Connection := ADOConnection1;
        LockType := ltBatchOptimistic; //ADO批量提交方法比较快
        SQL.Add('Select A, B, C, D, E FROM AAA Where (1=0)');
        Open;
        While alist.Count > 0 Do
        Begin
          //文本中是以","分割的 so CommaText ，
          //如果文本中有空格或者分割符号不是","，需修改读取方法。

          blist.CommaText := alist[0];
          alist.Delete(0);

          //这里要判断 字段数量是否统一 如：
          //if blist.Count <> 5 Then
          //Begin
          //
          //End;

          Append;
          FieldByName('A').AsString := blist[0];
          FieldByName('B').AsString := blist[1];
          FieldByName('C').AsString := blist[2];
          FieldByName('D').AsString := blist[3];
          FieldByName('E').AsString := blist[4];
          Post;

        End;
        UpdateBatch(); //提交
        Application.MessageBox('OK', 'MSG', 64);
        Close;
      Finally
        Free;
      End;
    End;

  Finally
    blist.Clear;
    blist.Free;
    alist.Clear;
    alist.Free;
  End;
End;

End.
 a:=GetcoDate;b:=adoquery1.Fields[0].AsDatetime;if a=b thenshowmessage(a);
修成这样试下. a:=formatdatetime('yyyy-mm-dd',now);
在Delphi中,yyyy表示四位年份，MM表示2位月份，mm表示2位分钟，HH是24小时制的小时，hh是12小时制的小时，ss是秒数

另外建议对adoquery1.Fields[0].AsString;也进行转化，因为sqlserver默认查询结果是有秒数和毫秒的

上一个：我想用DELPHI做个网格，请问是用DBGRID，stringGRID,darwGRID,用哪个呢？他们3个有什么不同呀？
下一个：delphi 哪个版本可以在64位win7上运行？能给个下载链接吗？