【菜鸟求救】这段SQL 是否有问题?怎么程序老说数据库出错

Question

strSQL:='';
      strSBIDNO:=HDOShipGlobals.ShipGetFlowno_c('SBIDNO');
      //生成出货单
      strSql:=
        ' insert into STOCKBILL ' +
        ' ( SBIDNO, ' +
        '   COMPANYCD, '+
        '   OCCURDT, '+
        '   OPCD, '+
        '   CUSCD, '+
        '   CUS, '+
        '   STORAGE, '+
        '   BLNIN, '+
        '   CLASS, '+
        '   CREATEBY, '+
        '   CREATEDT, '+
        '   KINDCD, '+
        '   RECKONINGDT, '+
        '   STATUSID, '+
        '   BLNSUPERSESSION )'+
        '  Values( '+
        '  ''' + strSBIDNO + ''', '+
        '  ''' + HDOShipGlobals._Companycd + ''', '+
        '  ''' + strDateTime + ''', '+
        '  '''', ' +
        '  ''' + cdsGPSInstallBrowse.fieldbyname('cuscd').AsString + ''', '+
        '  ''' + cdsGPSInstallBrowse.fieldbyname('cus').AsString + ''', '+
        '  '''', '+
        '  0,' +
        '  ''2'', '+
        '  ''' + HDOShipGlobals._Userid + ''',' +
        '  ''' + strDateTime + ''',' +
        '  ''ZZSFP'', '+
        '  ''' + strDateTime + ''',' +
        '  ' + inttostr(HDOShipGlobals.GetMaxStatus('SHCSTATU'))+ ', '+
        ' 0 ) ';----------------------------------------检查了六个小时也没检查出来,我太菜了,大家帮帮我啊..

Answer 1

这很难看出错误
这样处理一下就很明朗了
Query.sql.savetofile('D:/123.txt')；

Answer 2

用SQL的事件控查器跟踪一下看看，可能可以发现错误。

Answer 3

把 strSQL 输出来看看，然后才清楚到底是程序的问题，还是sql语句有问题，这样看大家都头晕啊

Answer 4

输出到文件
Query.sql.savetofile('D:/123.txt')；
然后再到数据库去执行,比如查询分析器,看看数据有没有错,就知道了