数据库的数据存在哪 Excel数据保存数据库与ConnectionString

Excel数据保存数据库与ConnectionString  

    ——此文章摘自《Delphi开发经验技巧宝典》定价 ￥ 　特价 ￥ 购买>>//track linktech cn/?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 = Microsoft Jet OLEDB     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 初始化的字符串

lishixinzhi/Article/program/Delphi/201311/24949