关闭

ADO數據連接和運用

232人阅读 评论(0) 收藏 举报
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;
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:13003次
    • 积分:275
    • 等级:
    • 排名:千里之外
    • 原创:15篇
    • 转载:3篇
    • 译文:0篇
    • 评论:0条
    文章分类