sqlplus什么的可以运作sql语句，delphi一运行就报错

sqlplus什么的可以运行sql语句，delphi一运行就报错！

procedure Tfmtime.BitBtn1Click(Sender: TObject);
var
  sqlStr:string;
  ListItem: TListItem;
  i,j:Integer;
  dz_sg:Boolean;
begin
  if ((trim(edtYear.Text) = '') or (trim(edtMonth.Text) = '')or (trim(edtday.Text) = '')or
      (trim(edtYear2.Text) = '') or (trim(edtMonth2.Text) = '')or (trim(edtday2.Text) = '')) then
  begin
    ShowMessage('请输入查询年月!');
    exit;
  end;
  lvGr.Items.Clear;
  sqlStr := 'select id,mzh,name,yblb,fzkb,doc_code,doc_name,doc_dept,doc_result  from inpatient_info'
            +' where fzrq <'
            +quotedstr(trim(edtday.Text) +'-'+ trim(edtmonth.Text) +'月' +'-'+trim(edtyear.Text))
            +' and '
            +' fzrq >='
            +quotedstr(trim(edtday2.Text) +'-'+trim(edtmonth2.Text) +'月'+'-'+trim(edtyear2.Text));

    qryDg1.Close;
    qrydg1.sql.clear;
    qryDg1.SQL.add(sqlStr);
    qryDg1.Open;
    qryDg1.First;
    for i := 0 to qryDg1.RecordCount -1  do
    begin
      ListItem:=lvGr.Items.Add;
      ListItem.Caption:= Trim(qryDg1.FieldByName('id').AsString);
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('mzh').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('name').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('yblb').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('fzkb').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_code').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_name').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_dept').AsString));
      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_result').AsString));
      next;
    end;

    //qryTTemp1
end;

报错：ORA01861:文字与格式字符串不匹配。

就是说我SQL语句格式错了。

但是


debug 的时候 取出sqlstr串里面的sql语句：select id,mzh,name,yblb,fzkb,doc_code,doc_name,doc_dept,doc_result  from inpatient_info where  fzrq <'2-2月-2013' and  fzrq >='2-2月-2013'  

放到查询分析器里面运行 没问题

求大神了~
[解决办法]

引用:

数据库连接有nls的参数，也许你这个连接不认这个格式，可以确认的是当前连接的回话中日期格式肯定不是这个。 所以，简单的做法，或者说严谨的做法有两个：
1）要么用上to_char
2）要么在连接中设置nls_date_format

举例

procedure Tfrm_server.btn2Click(Sender: TObject); 
 
begin
  con1.Close;
  //con1.Params.Add('nls_date_format=''yyyymmdd''');
  con1.Open;
  sqlqry2.Close;
  sqlqry2.SQLConnection:=con1;
  sqlqry2.SQL.Text:='begin execute immediate ''alter '+
              ' session set nls_date_format=''''yyyymmdd''''''; end;';
  sqlqry2.ExecSQL;

end;

procedure Tfrm_server.btn3Click(Sender: TObject);
begin
  sqlqry1.Close;
  sqlqry1.SQL.Clear;
  sqlqry1.SQL.Add('select * from txgfx_dm_xg where sysdate>''20130101''');
  sqlqry1.Open;
  ds2.Active:=true;
end;

结果是可以的。

查看更多 下一篇