delphi里excel数据如何导到sqlserver 高分!!! delphi里excel数据如何导到sqlserver 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 adoquery1的CONNECTION指向SQLSERVER:adoquery1.SQL.Clear;adoquery1.SQL.Add('select * into zqqq from [try$] in "d:\rsc\try1.xls" "excel 8.0;IMEX=1"'); 表名 EXCEL文件名 adoquery1.ExecSQL;adoquery1.Close; 你可以先用adotable打开,再一对一的添加到连接到sql server的adotable.经过摸索,我终于找到了方便快捷的通过jet把excel数据导出方法,我把我的一些经验写出来,希望对后人有帮助.假设有一个excel表d:\在职职工库.xls,簿中有一个表在职职工,其中有如下数据 2002年5月职工花名册序号 姓名 性别 民族 工资 1 张三 男 汉 800.00 2 李四 男 回 1200.00 3 张芸 女 汉 852.00 4 何天荣 男 满 962.00现要把其中的职工数据导出到d:\zghmc.dbf.首先用excel打开d:\在职职工库.xls,选择包含职工数据的区域,不包括标题"2002年5月职工花名册",执行"插入->名称->定义",输入zgk,为所选的数据定义一个名称,关闭excel.在project中加入一个ADOConnection1、一个ADOQuery1,添加以下代码:ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\在职职工库.xls;Extended Properties=excel 8.0;Persist Security Info=False';ADOQuery1.Connection:= ADOConnection1;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * into zghmc in "d:\" "dBASE 5.0;" from zgk' );ADOQuery1.ExecSQL;ADOQuery1.Close;然后编译运行,就把excel中的职工数据导出到d:\zghmc.dbf中了。如果要在程序中显示excel中的数据,添加一个ADOTable1,设置Connection为ADOConnection1就可以了. 上面的朋友,你的代码是将DBF的导入EXCEL中? 好像不行哇!'select * into zghmc in "d:\" "dBASE 5.0;" from zgk |这数据库在哪链接? |这是表名吗? 使用SQL进行excel数据导到sqlserver :SELECT * into tablename from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:\Documents and Settings\Administrator\My Documents\a.xls";Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False')...sheet1$ Delphi做的软件前一段时间可以使用,但现在一运行就报错 memo文字位置与颜色问题 如何用delphi把声卡的输入输出以及麦克风的输入同时录制成一个wav文件,能否详细介绍一下 关于随机字符串和随机数的问题 简简单单问题 Treeview的展开事件是什么,怎么在Treeview的末端增加员工名 编译是能否将dll中代码编进去 关于Delphi7的问题 Interface not supported? csdn的同志门,放点分! 上次根据网友提供的代码,写了一个dll串口通讯的例子,但我一直调试通不过,能帮忙解决吗?有源码!!!! 高分求购财务做帐方面的控件
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * into zqqq from [try$] in "d:\rsc\try1.xls" "excel 8.0;IMEX=1"'); 表名 EXCEL文件名
adoquery1.ExecSQL;
adoquery1.Close;
|这数据库在哪链接? |这是表名吗?
SELECT * into tablename from
OpenDataSource('Microsoft.Jet.OLEDB.4.0',
'Data Source="C:\Documents and Settings\Administrator\My Documents\a.xls";Extended Properties="Excel 5.0;
HDR=Yes;";Persist Security Info=False')...sheet1$