熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Excel數據保存數據庫與ConnectionString

2013-11-23 17:43:23  來源: Delphi編程 
    ——此文章摘自《Delphi開發經驗技巧寶典》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    把Excel中的數據保存到數據庫中

    本例通過OpenDataSource函數實現把Excel中的數據保存到數據庫中的功能主要代碼如下
    Create Proc ExcelToTable
    @SheetName varchar()表單名
    @PathName varchar()文件路徑
    as
    begin
    if EXISTS(SELECT * FROM sysobjects WHERE id = object_id(TempExcel))
    DROP table TempExcel
    declare @s varchar()
    declare @s varchar()
    declare @str varchar()
    set @s=MicrosoftJetOLEDB
    set @s=Data Source=+@PathName+;User ID=Admin;Password=;Extended properties=Excel
    set @str=
    set @str=SELECT * INTO TempExcel FROM OpenDataSource(++@s++++@s++)+@SheetName+$
    exec(@str)
    end

    彈出ConnectionString設置頁

    本例通過PromptDataSource函數彈出ConnectionString設置頁並把配置的連接字符串返回給變量使用變量中的連接字符串來連接數據庫

    PromptDataSource函數有兩個參數
    ParentHandle父窗口的句柄
    InitialString初始化的字符串

    主要代碼如下
    procedure TFrmOrderByBtnOrderClick(Sender: TObject);
    var
      ConnStr: string;
    begin
      //彈出ConnectionString設置頁並把配置的信息返回給變量ConnStr
      ConnStr := PromptDataSource(ApplicationHandle );
      ADOConnClose;
      ADOConnConnectionString := ConnStr;
      AdoConnOpen;
      ADODataSetActive := False;
      ADODataSetActive := True;
    end;


From:http://tw.wingwit.com/Article/program/Delphi/201311/24949.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.