2 citykeys citykeys 于 2016.01.14 23:52 提问

急求大师解决 excel导入到SQL2005 问题 50C

const
BeginRow = 2; BeginCol = 1;
var
Excel: OleVariant;
iRow,iCol : integer;
xlsFilename: string;
filename:string;
i,ExcelRowCount,OkNum,FailNum:integer;

begin
inherited;
begin

           OpenDialog1.Title := '请选择相应的Excel文件';
           OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
           if OpenDialog1.Execute then
             begin
                     filename    := OpenDialog1.FileName;
                     edit2.Text  := filename;
                     xlsFilename := trim(filename);
                     try
                         Excel := CreateOLEObject('Excel.Application');
                     except
                         Application.MessageBox('Excel没有安装!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
                         Exit;
                     end;
                     Excel.Visible := false;
                     Excel.WorkBooks.Open(xlsFilename);
                     try
                         iRow := BeginRow;
                         iCol := BeginCol;
                          ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
                        // while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do
                              for i:=2 to ExcelRowCount do
                              begin
                                    with Svr_Remote.DW_Query do
                                       begin
                                           Append;
                                           Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
                                           Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
                                           Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
                                           Fields[3].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+3].value);
                                           Fields[4].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+4].value);
                                           Fields[5].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+5].value);
                                           Fields[6].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value);
                                           Fields[7].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+7].value);
                                           Fields[8].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+8].value);
                                           Fields[9].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+9].value);
                                           Fields[10].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+10].value);
                                           Fields[11].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+11].value);
                                           Fields[12].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+12].value);
                                           Fields[13].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+13].value);
                                           Fields[14].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+14].value);
                                           Fields[15].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+15].value);
                                           iRow := iRow + 1;
                                           Label1.Caption:='导入记录:'+inttostr(iRow-1)+'条';
                                           label4.Caption :='正在导入的数据...'+Fields[0].AsString+Fields[1].AsString+Fields[2].AsString+
                                           Fields[3].AsString+Fields[4].AsString+Fields[5].AsString+Fields[6].AsString+
                                           Fields[7].AsString+Fields[8].AsString+Fields[9].AsString+Fields[10].AsString+
                                           Fields[11].AsString+Fields[12].AsString+Fields[13].AsString+Fields[14].AsString+Fields[15].AsString;
                                       end;
                                end;
                   Excel.Quit;
                   Svr_Remote.DW_Query.UpdateStatus ;
                   MessageBox(GetActiveWindow(), '数据导入成功!',   '...系统提示', MB_OK + MB_ICONWARNING);
                   except
                       Application.MessageBox('导入数据出错!请检查文件的格式是否正确!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
                       Excel.Quit;
                    end;
              end
              else
              begin
                      MessageBox(GetActiveWindow(), '请重新选择导入文件路径!', ...系统提示', MB_OK + MB_ICONWARNING);
              end;
  end;

end;

注:一执行后,导入的数据就是不全,本来excel表中有524条记录,执行后确只能导入523条记录,缺少一条记录,请大师给指点一下,谢谢
/////////////////////显示数据
Svr_Remote.DW_Query.close;
Svr_Remote.DW_Query.sql.clear;
Svr_Remote.DW_Query.sql.add('select * from STU7');
Svr_Remote.DW_Query.Open;
Svr_Remote.DW_Query.first;
///////////////////////

4个回答

caozhy
caozhy   Ds   Rxr 2016.01.15 00:02

先人工对比下,看下少了哪一条记录,要么是你循环的边界条件的问题,要么是那一行数据有异常,比如说其中有个特殊符号没转义,所以sql出错了。

lyhoo163
lyhoo163   Rxr 2016.01.15 07:46
const
  BeginRow = 2; BeginCol = 1;
var
  Excel: OleVariant;
  iRow,iCol : integer;
  xlsFilename: string;
  filename:string;
  i,ExcelRowCount,OkNum,FailNum:integer;
begin
  inherited;
  begin
    OpenDialog1.Title := '请选择相应的Excel文件';
    OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
    if OpenDialog1.Execute then
    begin
      filename := OpenDialog1.FileName;
      edit2.Text  := filename;
      xlsFilename := trim(filename);
      try
        Excel := CreateOLEObject('Excel.Application');
      except
        Application.MessageBox('Excel没有安装!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
      Exit;
    end;
    Excel.Visible := false;
    Excel.WorkBooks.Open(xlsFilename);
    try
      iRow := BeginRow;
      iCol := BeginCol;
      ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
   // while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do
      for i:=1 to ExcelRowCount-BeginRow-1 do
      begin
        with Svr_Remote.DW_Query do
        begin
          Append;
          Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
          Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
          Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
          Fields[3].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+3].value);
          Fields[4].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+4].value);
          Fields[5].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+5].value);
          Fields[6].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value);
          Fields[7].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+7].value);
          Fields[8].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+8].value);
          Fields[9].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+9].value);
          Fields[10].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+10].value);
          Fields[11].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+11].value);
          Fields[12].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+12].value);
          Fields[13].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+13].value);
          Fields[14].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+14].value);
          Fields[15].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+15].value);
          iRow := iRow + 1;
          Label1.Caption:='导入记录:'+inttostr(iRow-1)+'条';
          label4.Caption :='正在导入的数据...'+Fields[0].AsString+Fields[1].AsString+Fields[2].AsString+
            Fields[3].AsString+Fields[4].AsString+Fields[5].AsString+Fields[6].AsString+
            Fields[7].AsString+Fields[8].AsString+Fields[9].AsString+Fields[10].AsString+
             Fields[11].AsString+Fields[12].AsString+Fields[13].AsString+Fields[14].AsString+Fields[15].AsString;
         end;
        end;
        Excel.Quit;
        Svr_Remote.DW_Query.UpdateStatus ;
        MessageBox(GetActiveWindow(), '数据导入成功!',   '...系统提示', MB_OK + MB_ICONWARNING);
      except
        Application.MessageBox('导入数据出错!请检查文件的格式是否正确!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Excel.Quit;
      end;
    end
    else begin
      MessageBox(GetActiveWindow(), '请重新选择导入文件路径!', ...系统提示', MB_OK + MB_ICONWARNING);
    end;
  end;
end;

这样,修改。看看如何。关键是循环:
for i:=2 to ExcelRowCount do
改为:
for i:=1 to ExcelRowCount-BeginRow-1 do

lyhoo163
lyhoo163   Rxr 2016.01.15 07:51

建议你不会使用OleVariant;,关键是慢。使用XLSReadWritII。

beau_lily
beau_lily   2016.01.15 09:06

楼主 你把EXCEL的行数改成这个样子
ExcelRowCount := Excel.WorkSheets[1].Rows.Count;

这种操作方式可能导致有一些多的行出来 你对关键数据进行判读即可

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
快速地将Excel数据导入到SQL2005中的方法
在查询分析器里,直接写SQL语句: --启用Ad Hoc Distributed Queries: exec sp_configure 'show advanced options',1 reconfigure exec sp_configure 'Ad Hoc Distributed Queries',1 reconfigure --使用完成后,关闭Ad Hoc Distribute
Excel 2007导入数据到SQL Server 2005
转载自:http://tech.ddvip.com/2008-08/121981746558334.html SSIS开发人员经常会需要从一个Microsoft Office Excel 2007电子数据表导入数据。这篇文章提供了一个关于怎样从一个Microsoft Office Excel 2007电子数据表导入数据到一个SQL Server 2005数据库的逐步指导。   第一步是
excel导入sql2005的几种方法归纳
[SQL]将Excel表数据导入SQL Server2005的几种方法归纳 数据库 2010-07-27 11:14:26 阅读201 评论0 字号:大中小 订阅 近日在巨轮着手车间负荷数据处理,反馈回来的数据是保存在Excel文件中的,我必须将其导入SQL Server2005中,供存储过程计算。 由于之前没有将Excel数据导入SQL Server2005的经验,因此摸索着花了一天时间才搞定。下面将网上收集到的几种导入方法做个归纳。 方法一、利用SQL Server2005自带的DTS工具,手工导入: 第一步是点击开始并选择运行并输入CMD然后在命令提示符里输入DTSWIZARD。SQL Server 导入和导出向导的欢迎界面将显示出来,如下图所示:(也可以这样打开该界面:1、登录到 SQL Server Management Studio。2、在 “对象资源管理器 ”中右键单击 “管理 ”,在弹出列表中单击 “导入数据 ”。)   当你点击下一步按钮时,它将进入选择数据源向导界面。用户应该选择数据源为Microsoft Office 12.0 Access Database Engine OLE DB Provider 然后在向导界面中点击属性…按钮,它将弹出数据链接属性界面。在所有标签页中,双击数据源属性值并输入电子数据表的位置,例如“C:\Excel2007\Import\SampleData.xlsx”作为导入数据的数据源的Microsoft Office Excel 2007文件名称和路径。然后双击扩展属性并选择Excel 12.0作为属性值。   到Microsoft Office Excel 2007的连接可以通过点击测试连接按钮来进行测试,如下图所示:   在下一个页面中,数据源需要选为SQL Native Client,因为数据将导入到SQL Server 2005。然后你需要选择数据所要导入的服务器名称,并需要配置合适的验证模式,它之后跟着数据库名称。  在这个例子中,我们将使用windows验证连接到本地SQL Server实例,所使用的数据库将是ImportExcel。   在Specify Table Copy or Query(指定表复制或查询)向导界面中,选择copy data from one or more tables or views(从一个或多个表或视图复制数据)选项,并继续这个向导到下一个界面。   在Select Source Table and Views(选择源表和视图)向导界面中,用户需要在源中选择雇员电子数据表,然后在目标中就可以看到ImportExcel.dbo.Employee了。之后点击Edit Mappings…(编辑匹配…),扫描电子数据表中的可用数据,如果数据类型与SQL Server所建议的不同的话那么指定数据类型。   在Save and Execute Package(保存和执行包)向导界面中,有两个选项叫做Execute Immediately(立即执行)和Save SSIS Package as file system(保存SSIS包为文件系统)。你可以选择任何一个选项然后点击Finish(完成)按钮来运行和结束这个包配置。 方法二、在查询分析器里,直接写 SQL语句: 1、如果是导入数据到现有表,则采用 INSERT INTO 表 SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 的形式 2、如果是导入数据并新增表,则采用 SELECT * INTO 表 FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 的形式。 以上语句是将 EXCEL文件里 SHEET1工作表中所有的列都读进来,如果只想导部分列,可以 INSERT INTO 表 (a1,a2,a3) SELECT a1,a2,a3 FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 其实可以将 OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)当成一个表,例如我就写过这样一个句子: INSERT INTO eval_channel_employee(channel,employee_id) SELECT CASE a.渠道 WHEN 'DIY' THEN 1 WHEN 'RDC' THEN 0 WHEN 'KCM' THEN 2 ELSE 3 END ,b.id FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;DATABASE=c:\temp\name.xls',sheet1$) AS a,pers_employee b WHERE a.员工编码 =b.code 不管是哪种方式,哪种途径,系统都会默认将第一行上的内容作为字段名。 3、利用C#自己开发数据导入小工具 //连接串 string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" + [EXCEL文件,含路径] + ";"; OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); DataTable dtSchema = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new object[] {null, null, null, "TABLE"}); DataSet ds = new DataSet(); //一个EXCEL文件可能有多个工作表,遍历之 foreach( DataRow dr in dtSchema.Rows ) { string table = dr["TABLE_NAME"].ToString(); string strExcel = "SELECT * FROM [" + table + "]"; ds.Tables.Add(table); OleDbDataAdapter myCommand = new OleDbDataAdapter(strExcel,conn); myCommand.Fill(ds,table); } conn.Close(); 这样,读取出来的数据就藏在 DataSet里了。 采用这种方式,数据库所在机器不必装有 EXCEL。 总结: 当Excel表中数据完整时,利用SQL自带的导入工具手工导入比较方便。当数据不完整或数据格式对应不上时,使用导入工具会出错,利用SQL查询语句就更便捷。当结合以上两种方法的优点,利用C#自己开发出数据导入工具是最佳选择。
javabean求解旧错
javabean+jsp问题,求纠错。急/
实现Excel数据导入到SQL2005中的方法 .txt
实现Excel数据导入到SQL2005中的方法
excel导入数据到SQL server 2005
 主要问题1,如何讲exel里面的一张张的表依次读出2,如何批量导入数据解决思路1,excel里面各个表名被成为sheetName,由以下几句便可以获得: DataTable sheetNames = conn.GetOleDbSchemaTable        (System.Data.OleDb.OleDbSchemaGuid.Tables, new object
Asp.net中Excel导入
Asp.net中Excel导入 将Excel导入到sql2005中
用Excel规划求解不平衡运输问题
用Excel规划求解不平衡运输问题的课件
实现excel导入到sql2005的方法.
教你如何将excel数据导入到sql2005 ,帮助大大的
mdmcpq.in文件
急求XP系统中mdmcpq.inf和usbser.sys文件,解决套件无连接!