DB2临时表无法创建的解决方法-益华科技

复制procedure TXXXForm.lc_procHandleStandard(strpo:string; xPOSEQ:Integer);//HXYADD----24/09/2010---- var strFieldList:string;//A-JW-02-351101-01 begin strFieldList:=XNAME VARCHAR(80),表无#13#10 +XKIND VARCHAR(20),#13#10 +ENAME VARCHAR(20),#13#10 +CNAME VARCHAR(20),#13#10 +XBIAO VARCHAR(80),#13#10 +XCODE INTEGER,#13#10 +XGRADE INTEGER ; strTmpTableName:=lc_CreatTmpTable(strFieldList); if strTmpTableName= then begin Messagebox(handle,无法创建 [执行标准资料] 临时表﹗,提示信息,mb_Ok); Exit; end;//*) qry6.Close; qry6.SQL.Clear; qry6.SQL.Add(DELETE FROM +strTmpTableName); qry6.ExecSQL; qry6.Close; qry6.SQL.Clear; qry6.SQL.Add(INSERT INTO +strTmpTableName); qry6.SQL.Add((XNAME,XKIND,ENAME,CNAME,XBIAO,XCODE,XGRADE)); qry6.SQL.Add(SELECT VALUE(K.PROD_NAME,),); qry6.SQL.Add( CASE K.PROD_KIND WHEN 0 THEN 0 原色产品 ); qry6.SQL.Add( WHEN 1 THEN 1 水洗产品 ); qry6.SQL.Add( ELSE X 不分类 END PROD_KIND,); qry6.SQL.Add( VALUE(A.COLOR_ENG_NAME,),); qry6.SQL.Add( VALUE(A.COLOR_CHN_NAME,),); qry6.SQL.Add( VALUE(K.ZHIXIN_BIAO,),); qry6.SQL.Add( K.S_CODE,); qry6.SQL.Add( A.COLOR_GRADE ); qry6.SQL.Add( FROM GSSAL.SAL_PO_DTLA A ); qry6.SQL.Add( LEFT JOIN GSSAL.SAL_PO X ON (X.PO_NO=A.PO_NO AND X.GEN_POSEQ=A.GEN_POSEQ) ); qry6.SQL.Add( LEFT JOIN GSSAL.SAL_KIND K ON (K.S_CODE=VALUE(A.PROD_CODE,X.PROD_CODE)) ); qry6.SQL.Add( WHERE A.PO_NO=:PO_NO AND A.GEN_POSEQ=:GEN_POSEQ); qry6.SQL.Add( AND VALUE(K.ISVALID,N)=Y ); qry6.SQL.Add( ORDER BY K.PROD_NAME,A.COLOR_ENG_NAME ); qry6.ParamByName(PO_NO).AsString:=strpo; qry6.ParamByName(GEN_POSEQ).AsInteger:=xPOSEQ; qry6.ExecSQL; qry6.Close; qry6.SQL.Clear; qry6.SQL.Add(SELECT * ); qry6.SQL.Add(FROM +strTmpTableName); qry6.Open; end; ----------------------------------------------------------------------------------------------------------------------------------- function TXXXForm.lc_CreatTmpTable(strFieldList:string):string; var strTableName:string; blnSuccess:boolean; i:integer; function lc_funcCreatTable(strFieldList,strTableName: string):Boolean; var qryCreatTemp:TQuery; begin Result:=False; qryCreatTemp:=TQuery.Create(self); with qryCreatTemp do begin DatabaseName:=GSCOMDB; SQL.Clear; SQL.Add(CREATE TABLE +strTableName+ (+strFieldList+) IN USERSPACE1 ); try ExecSQL; Result:=True; except end; end; qryCreatTemp.Free; end; begin Result:=;//如果创建不成功则返回空字符串。 strTableName:=GSTMP.TMP_+FormatFloat(0,法创方法now*10000000)+; for i:=1 to 50 do//循环 50次﹐再不能创建则退出。亿华云计算 begin blnSuccess:=lc_funcCreatTable(strFieldList,建的网站模板解决strTableName); if blnSuccess then //如果创建成功则返回表名﹐同时退出。服务器托管表无 begin Result:=strTableName; Exit; end; end; end; ----------------------------------------------------------------------------------------------------------------------------------- procedure TXXXForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin lstUser.Free; if strTmpTableName<> then begin lc_DeleteTable(strTmpTableName); strTmpTableName:=; end; end; ----------------------------------------------------------------------------------------------------------------------------------- function TXXXForm.lc_DeleteTable(strTableName:string):Boolean; var qryDeleteTemp:TQuery; begin Result:=False; qryDeleteTemp:=TQuery.Create(Self); with qryDeleteTemp do begin DatabaseName:=GSCOMDB; SQL.Clear; SQL.Add(DROP TABLE +strTableName); try ExecSQL; Result:=True; except end; end; qryDeleteTemp.Free; end; ----------------------------------------------------------------------------------------------------------------------------------- 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.46.47.48.49.50.51.52.53.54.55.56.57.58.59.60.61.62.63.64.65.66.67.68.69.70.71.72.73.74.75.76.77.78.79.80.81.82.83.84.85.86.87.88.89.90.91.92.93.94.95.96.97.98.99.100.101.102.103.104.105.106.107.108.109.110.111.112.113.114.115.116.117.118.119.