- 当前位置：首页 >IT科技类资讯 >DB2临时表无法创建的解决方法
DB2临时表无法创建的解决方法
发布时间：2025-11-05 04:32:53 来源：技术快报 作者：数据库
复制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.
- 电脑键盘打字手势教程（掌握打字手势，轻松达到职业级打字速度与准确性）
- 凤凰机滤质量如何？（解密凤凰机滤的性能和使用效果）
- 金战神GT1（揭秘金战神GT1超级跑车的独特魅力与驾驶体验）
- 黑米A3手机评测（黑米A3手机）
- 电脑开机错误00005（深入了解电脑开机错误00005，避免数据丢失和系统崩溃）
- S8号码归属设置指南（如何设置S8号码归属信息以保护个人隐私）
- 学习计算机科学的笔记教程（从计算机科学的基础知识到高级技巧，一步步揭开计算机的神秘面纱）
- 戴尔低端笔记本的性能与可靠性分析（探究戴尔低端笔记本的表现及用户评价）
- 电脑日志错误8198的原因与解决方法（深入探究电脑日志错误8198的发生情况及解决办法）
- 电脑无法连接打印机的常见问题及解决方法（解决电脑与打印机连接问题的实用技巧）
随便看看
益华科技源码下载源码库IT技术网服务器租用亿华云企商汇IT资讯网香港云服务器智能时代益华科技亿华云亿华灵动科技前瞻全栈开发亿华互联亿华云计算益强智囊团益强前沿资讯益华IT技术论坛IT资讯网码上建站益强IT技术网技术快报思维库汇智坊益强资讯优选码力社云智核云站无忧益强编程舍益强科技亿华智造多维IT资讯益强编程堂极客码头益强科技亿华科技创站工坊益强智未来益华科技亿华智慧云极客编程
- Copyright © 2025 Powered by DB2临时表无法创建的解决方法,技术快报 滇ICP备2023006006号-46sitemap