2011年6月23日
摘要: iCount int ;vTermSql varchar2(1000);AProductSID int;ASaleCodeSid int;vConditionTxt varchar2(1000);vTermSql:='select count(1) from V_PRODUCT_FORPROMOTION where sid=:ProductSID and sale_code_sid=:SaleCodeSID '||vConditionTxt;Execute immediate vTermSql into iCount using AProductSID,ASaleCodeSid 阅读全文
posted @ 2011-06-23 17:46 jing_lee 阅读(149) 评论(0) 推荐(0)
摘要: var ExcelApp,ExcelApp2: Variant;begin ExcelApp := CreateOleObject( 'Excel.Application' ); //ExcelApp.Visible := True; ExcelApp.WorkBooks.Open( 'C:\Documents and Settings\Administrator\桌面\File1.xls' ); ExcelApp.WorkBooks.Open( 'C:\Documents and Settings\Administrator\桌面\File2.xls& 阅读全文
posted @ 2011-06-23 17:29 jing_lee 阅读(1829) 评论(0) 推荐(0)