ADO數據連接和運用
procedure TfrmEntryForm1.Pvt_readExcel;
begin
  
if not FileUpdate('PDM300P1.xlt', 'C:Report_Template', True) then
  begin
    ShowMessage(
'範本檔 PDM300P1.xlt 下載失敗!');
    Abort;
  
end;
  
try
    
try
      DM1.connExcel.Close;  
//  connExcel------TADOConnection
      DM1.connExcel.ConnectionString :
= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Report_TemplatePDM300P1.xlt;Extended Properties=Excel 5.0;Persist Security Info=False';
      DM1.connExcel.LoginPrompt := False;
      DM1.connExcel.Connected :
= True;
      DM1.dsExcel.Close;      
//  dsExcel---------TADODataSet
      DM1.dsExcel.CommandText :
= 'select * from [產品碼線上說明$]';
      DM1.dsExcel.Open;
      
if not DM1.dsExcel.IsEmpty then
      begin
        DM1.dsShow.CreateDataSet;     
//  dsShow---------TADODataSet
        
while not DM1.dsExcel.Eof do
        begin
          DM1.dsShow.Insert;
          
if not DM1.dsExcel.Fields[0].IsNull then
            DM1.dsShowNo.Value :
= DM1.dsExcel.Fields[0].Value;
          
if not DM1.dsExcel.Fields[1].IsNull then
            DM1.dsShowItem.Value :
= DM1.dsExcel.Fields[1].Value;
          DM1.dsShow.Post;
          DM1.dsExcel.Next;
        
end;
        DM1.dsShow.First;
      
end;
    except
      showmessage(
'無法讀取 PDM300P1.xlt 文件!');
    end;
  
finally
    DM1.dsExcel.Close;
    DM1.connExcel.Connected :
= False;
  
end;
end;
 
阅读更多
文章标签: report excel c
想对作者说点什么? 我来说一句

VB連接EXCEL實現輸出

2008年12月25日 3KB 下载

SYBASE 備份檔案還原

2008年04月03日 1.34MB 下载

sql約束、默認、規則

2015年09月25日 418KB 下载

jsprofilerui.dll

2013年12月16日 229KB 下载

DBClear

2006年02月23日 442KB 下载

delphi報表制作

2013年01月05日 293KB 下载

没有更多推荐了,返回首页

不良信息举报

ADO數據連接和運用

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭