Excel数据保存数据库与ConnectionString

——此文章摘自《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;