SQL_Access_Excel导出导入工具(包含Delphi源代码)

 因为工作的需要,特意做了一个SQL导出导入Access和Excel的工具。SQL导出导入ACCESS数据库和Excel工具,包含Delphi的源代码,而且可以直接选择导出MS SQL Server的任何一个数据表的数据,也能导入Access和Excel的数据到相应的数据表。这是一个非常实用的SQL导入导出工具。

连接网址:http://download.csdn.net/source/341797

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
说 明: 〖[说明属性]转入转出工具源码〗说明文件<BR><BR>[说明属性]转入转出工具,安装之前必须保证你已经安装了OFFICE97中的ACCESS97,否则无法运行,此工具主要是用来对ACCESS里面所有表、查询、窗体、报表、模块等的说明进行管理(在表或窗体名称点右键,选属性,即可看到说明,或在视图菜单中选择按详细信息,即可看到说明)。详细功能请参见软件。 <BR><BR>一、【主要功能】<BR>此工具主要是用来对ACCESS里面所有表、查询、窗体、报表、模块等的说明进行管理(在表或窗体名称点右键,选属性,即可看到说明,或在视图菜单中选择按详细信息,即可看到说明),写这个软件的主要目的是当时手头正在做一个项目,由于系统比较庞大,所以系统中表、窗体的数量非常多,为了能够有效管理这么多窗体和表,也为了增加了程序可读性,所以在每个表、窗体、报表等增加说明,用来说明此表或窗体主要完成哪些功能,不必打开窗体或表,即可大致知道它的用途。这种想法在后来就遇到了困难,由于当时系统是由几个人协同开发对方导入的程序常常会把我的系统中同名的窗体的说明冲掉,另外删除链接表再重新添加链接表,则说明又会丢失,如何保存这些说明信息就是当务之急了,所以写了这个软件。这个软件可以对说明导入导出,及自动根据窗体或报表的标题生成说明,或将程序中所有的对象的说明保存起来。另外,这个程序的生成数据字典功能可以自动找出你表中的字段在窗体中显示的标题是什么,这个功能主要是用于当你的程序中表和窗体都比较多时,如果知道表中的字段在窗体中显示是什么名称,譬如employee表中的字段dept_code在哪个窗体中用到,且显示名称为[部门].<BR><BR>具体导出的数据字典可参照表 [z_fldobj 的备份]<BR><BR>具体导出的对象说明可参照表 [z_obj 的备份]<BR><BR>二、文件列表<BR><BR>im_exportProp.mdb 程序文件<BR>readme.txt 读我文件<BR><BR>三、[说明属性]转入转出工具 使用方法<BR><BR>1. 确保你已经安装了access97<BR>2. 确保你使用的是windows98 (windowsNT/2000未测试过,估计应该也可以)<BR>3. 双击下载的文件,解压缩到你指定的目录<BR>4. 阅读说明文件之后,双击MDB文件即可运行<BR>5. 如果你想在你的程序中使用,请把两个表及一个窗体导入到你的程序中即可。<BR><BR><BR><BR>四、错误反馈<BR><BR>1. 如果你发现软件中的错误,欢迎你反馈给作者。<BR><BR><BR>五、【使用许可/LICENSE】<BR><BR>请仔细阅读以下使用许可,如果您不同意以下任何一点,请<BR>立即停止使用此软件。<BR><BR>1.〖[说明属性]转入转出工具〗的作者王宇虹授予您对此版本的最终用户使用<BR>许可权;<BR>2.您不能对软件作任何的软件反向工程,如反汇编,跟踪等;<BR>3.您可以分发此软件,但不能收取任何费用或用于商业目的,<BR>同时,必须保证所分发的软件包含全部文件,并且不作任何<BR>修改;分发的软件应该至少包括我软件所附带的README.txt<BR>4.本软件不包含任何使用保证,不能保证适用或不出故障,由<BR>于此软件是免费提供,因此作者不对您或别的用户使用此<BR>软件所带来的理论上或实际的损失负责;<BR>5.如果您用了此软件就等于您同意以上几点许可;<BR>6.如果你觉的该软件好用,请发一封Email给作者表示感谢,这些支持将会使作者<BR>写出更好软件,谢谢!<BR><BR>六、【软件注册费用】<BR>完全免费!! <BR>本软件所有功能都可以免费使用,完全没有限制。<BR><BR>七、【源码费用】<BR><BR>完全免费!!! 主要是想让更多人可以从一个已有的<BR>源码开始,写出一个更好的程序。<BR><BR>我想对源码的费用应该是对作者辛勤劳动的一种肯定,而且是对中国所有免费软件编写者的一种鼓励!<BR><BR>你可以到我的主页<BR>http://www.zstmcomputer.com <BR>或 http://tmcomputer.6to23.com <BR><BR>免费获得其它完整的应用软件或一些已公开的源码。<BR><BR>电子信箱:[email protected] <BR>[email protected] <BR><BR><BR><BR>八、【主要技术】<BR>具体请参照程序<BR><BR><BR>系统编写开始时间: 18/05/2001<BR>完成及验收时间: 28/06/2001<BR><BR>九、【感谢】<BR>此软件的诞生得到了同事以及客户的支持,在此表示感谢。<BR>  
Delphi是一种编程语言,可以用于开发Windows平台的应用程序。在Delphi中,可以使用COM组件来实现Excel导入SQL的功能。 首先,需要使用Delphi中的COM组件来操作Excel文件。可以使用TExcelApplication组件来打开Excel文件,并使用TExcelWorkbook和TExcelWorksheet组件来读取和写入Excel数据。 接下来,需要将Excel数据导入SQL数据库中。可以使用ADO(ActiveX Data Objects)组件来连接数据库,并使用SQL语句将Excel数据插入到数据库表中。 以下是一个简单的示例代码,演示了如何使用Delphi实现Excel导入SQL的功能: ```delphi uses ComObj, ADODB; procedure ImportExcelToSQL(const ExcelFilePath, TableName: string); var ExcelApp: Variant; Workbook: Variant; Worksheet: Variant; Connection: TADOConnection; Query: TADOQuery; Row, Col: Integer; begin // 创建Excel对象 ExcelApp := CreateOleObject('Excel.Application'); try // 打开Excel文件 Workbook := ExcelApp.Workbooks.Open(ExcelFilePath); Worksheet := Workbook.Worksheets; // 连接数据库 Connection := TADOConnection.Create(nil); Connection.ConnectionString := 'Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword'; Connection.Connected := True; // 创建查询对象 Query := TADOQuery.Create(nil); Query.Connection := Connection; // 遍历Excel数据并插入到数据库表中 for Row := 1 to Worksheet.UsedRange.Rows.Count do begin Query.SQL.Text := 'INSERT INTO ' + TableName + ' VALUES ('; for Col := 1 to Worksheet.UsedRange.Columns.Count do begin Query.SQL.Text := Query.SQL.Text + QuotedStr(Worksheet.Cells[Row, Col].Value) + ','; end; Query.SQL.Text := Copy(Query.SQL.Text, 1, Length(Query.SQL.Text) - 1) + ')'; Query.ExecSQL; end; // 释放资源 Query.Free; Connection.Free; Workbook.Close; finally // 关闭Excel应用程序 ExcelApp.Quit; ExcelApp := Unassigned; end; end; ``` 使用上述代码,你可以将指定Excel文件中的数据导入到指定的SQL数据库表中。需要注意的是,你需要根据实际情况修改连接字符串和Excel文件路径、表名等参数。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值