各位朋友,本人有这样一个需求不知是否可以实现,望高手指点一二。昨天有位朋友帮我耐心解答了,不过执行后的结果不是最终的需求,再麻烦大家了,谢谢。 现有一部分数据(excel文件),想让其内容导入到数据库某一表中,表中有卡号、总金额、总积分这三列需特殊处理,如果从EXCEL中导入的数据卡号有重复的,那么总金额、总积分采用累加,其他列内容全部替换。不知可否实现,谢谢大家了。 例如 A  EXCEL表格  
  表名:POS 
      字段    ID        卡号      金额        积分      ........ 
                1        001        10            10  
                2        002        10            10  
                3        003        10            10    
  ---------------------------  
B  数据库  
  表名:VIP  
      字段    ID        卡号      金额        积分    ........ 
                1        002        20            20  
                2        003        20            20  
                3        004        20            20  
最后要求的结果是   表名:VIP  
      字段    ID        卡号      金额        积分    ........ 
                1        001        30            30 
                2        002        30            30  
                3        003        30            30  
                4        004        20            20  

解决方案 »

  1.   

    1.可以直接用导入导出工具.
    2.用语句的方式参考如下:
    SQL SERVER 和EXCEL的数据导入导出
    1、在SQL SERVER里查询Excel数据:
    -- ======================================================
    SELECT * 
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
    'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
    下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
    SELECT * 
    FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
    -------------------------------------------------------------------------------------------------2、将Excel的数据导入SQL server :
    -- ======================================================
    SELECT * into newtable
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
    实例:
    SELECT * into newtable
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
    -------------------------------------------------------------------------------------------------3、将SQL SERVER中查询到的数据导成一个Excel文件
    -- ======================================================
    T-SQL代码:
    EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
    参数:S 是SQL服务器名;U是用户;P是密码
    说明:还可以导出文本文件等多种格式
    实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
    EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
    在VB6中应用ADO导出EXCEL文件代码: 
    Dim cn  As New ADODB.Connection
    cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
    cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
    ------------------------------------------------------------------------------------------------4、在SQL SERVER里往Excel插入数据:
    -- ======================================================
    insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
    'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)T-SQL代码:
    INSERT INTO  
    OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
    'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
    (bestand, produkt) VALUES (20, 'Test')  
    -------------------------------------------------------------------------------------------------本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/htl258/archive/2009/04/05/4049019.aspx
    3.最后在SQL查询分析器中用SQL语句来处理你想要的最终结果.
      

  2.   

    先把EXCEL导入表之后SQL语句计算出来,再导出
      

  3.   

    太感谢楼上了,excel表格我已经生成了,用数据库的导入导出工具就是实现不了这一点,如果有ID重复的,那么金额、积分这两列的数据相加,其他列的数据替换,有直接可以运行的语句吗,小弟初手,不甚感激。
      

  4.   

    【问题】:OLE DB 提供程序 'MICROSOFT.JET.OLEDB.4.0' 报错。提供程序未给出有关错误的任何信息。  OLE DB 错误跟踪[OLE/DB Provider 'MICROSOFT.JET.OLEDB.4.0' IDBInitialize::Initialize returned 0x80004005:  提供程序未给出有关错误的任何信息。]。
    【分析】:
          首先先检查一下你用来导入的Excel表是否已经打开,如果打开了,请关闭后重试一下。
    还 是不行的话,继续往下看。如果你用来数据库操作的sql语句是用striing字符串保存的,且其中包含着.xsl文件的存放路径。那么问题可能就出在这 个路径上。您是否值用了一个斜杠"\"。如果只有一个斜杠的话,在运行前,错误列表中会提示"无法识别转义序列"。一旦运行,该提示就会消失,可能您就是 因为这样而没有注意到这错误。
      

  5.   


    SQL SERVER 和EXCEL的数据导入导出
    1、在SQL SERVER里查询Excel数据:
    -- ======================================================
    SELECT * 
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
    'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
    下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
    SELECT * 
    FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
    -------------------------------------------------------------------------------------------------2、将Excel的数据导入SQL server :
    -- ======================================================
    SELECT * into newtable
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
    实例:
    SELECT * into newtable
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
    -------------------------------------------------------------------------------------------------3、将SQL SERVER中查询到的数据导成一个Excel文件
    -- ======================================================
    T-SQL代码:
    EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
    参数:S 是SQL服务器名;U是用户;P是密码
    说明:还可以导出文本文件等多种格式
    实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
    EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
    在VB6中应用ADO导出EXCEL文件代码: 
    Dim cn  As New ADODB.Connection
    cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
    cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
    ------------------------------------------------------------------------------------------------4、在SQL SERVER里往Excel插入数据:
    -- ======================================================
    insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
    'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)T-SQL代码:
    INSERT INTO  
    OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
    'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
    (bestand, produkt) VALUES (20, 'Test')  
    -------------------------------------------------------------------------------------------------
      

  6.   


    可以先把excel的数据导入到一个临时表,然后再从临时表中通过计算更新或插入到数据库的B表中
      

  7.   

    /**//*--数据导出EXCEL
     
     导出表中的数据到Excel,包含字段名,文件为真正的Excel文件
     ,如果文件不存在,将自动创建文件
     ,如果表不存在,将自动创建表
     基于通用性考虑,仅支持导出标准数据类型--邹建 2003.10(引用请保留此信息)--*//**//*--调用示例 p_exporttb @tbname='地区资料',@path='c:',@fname='aa.xls'
    --*/
    create proc p_exporttb
    @tbname sysname,    --要导出的表名
    @path nvarchar(1000),   --文件存放目录
    @fname nvarchar(250)=''  --文件名,默认为表名
    as
    declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int
    declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)--参数检测
    if isnull(@fname,'')='' set @fname=@tbname+'.xls'--检查文件是否已经存在
    if right(@path,1)<>'' set @path=@path+''
    create table #tb(a bit,b bit,c bit)
    set @sql=@path+@fname
    insert into #tb exec master..xp_fileexist @sql--数据库创建语句
    set @sql=@path+@fname
    if exists(select 1 from #tb where a=1)
     set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'
           +';CREATE_DB="'+@sql+'";DBQ='+@sql
    else
     set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES'
        +';DATABASE='+@sql+'"'
    --连接数据库
    exec @err=sp_oacreate 'adodb.connection',@obj out
    if @err<>0 goto lberrexec @err=sp_oamethod @obj,'open',null,@constr
    if @err<>0 goto lberr/**//*--如果覆盖已经存在的表,就加上下面的语句
    --创建之前先删除表/如果存在的话
    select @sql='drop table ['+@tbname+']'
    exec @err=sp_oamethod @obj,'execute',@out out,@sql
    --*/--创建表的SQL
    select @sql='',@fdlist=''
    select @fdlist=@fdlist+',['+a.name+']'
     ,@sql=@sql+',['+a.name+'] '
      +case 
       when b.name like '%char' 
       then case when a.length>255 then 'memo'
        else 'text('+cast(a.length as varchar)+')' end
       when b.name like '%int' or b.name='bit' then 'int'
       when b.name like '%datetime' then 'datetime'
       when b.name like '%money' then 'money'
       when b.name like '%text' then 'memo'
       else b.name end
    FROM syscolumns a left join systypes b on a.xtype=b.xusertype
    where b.name not in('image','uniqueidentifier','sql_variant','varbinary','binary','timestamp')
     and object_id(@tbname)=id
    select @sql='create table ['+@tbname
     +']('+substring(@sql,2,8000)+')'
     ,@fdlist=substring(@fdlist,2,8000)
    exec @err=sp_oamethod @obj,'execute',@out out,@sql
    if @err<>0 goto lberrexec @err=sp_oadestroy @obj--导入数据
    set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES;IMEX=1
       ;DATABASE='+@path+@fname+''',['+@tbname+'$])'exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname)returnlberr:
     exec sp_oageterrorinfo 0,@src out,@desc out
    lbexit:
     select cast(@err as varbinary(4)) as 错误号
      ,@src as 错误源,@desc as 错误描述
     select @sql,@constr,@fdlist
    go
     exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname)你把这一句改成update试试
      

  8.   

    UPDATE V SET
        V.金额 =V.金额 +P.金额,V.积分 =V.积分 +P.积分
    FROM VIP V
      JOIN (SELECT ID,卡号,SUM(金额) 金额,SUM(积分) 积分 FROM POS GROUP BY ID,卡号) P 
        ON V.ID=P.ID AND V.卡号=P.卡号 
      

  9.   

    SQL SERVER 和EXCEL的数据导入导出
    1、在SQL SERVER里查询Excel数据:
    -- ======================================================
    SELECT * 
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
    'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
    下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
    SELECT * 
    FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
    -------------------------------------------------------------------------------------------------2、将Excel的数据导入SQL server :
    -- ======================================================
    SELECT * into newtable
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
    实例:
    SELECT * into newtable
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
      'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
    -------------------------------------------------------------------------------------------------3、将SQL SERVER中查询到的数据导成一个Excel文件
    -- ======================================================
    T-SQL代码:
    EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
    参数:S 是SQL服务器名;U是用户;P是密码
    说明:还可以导出文本文件等多种格式
    实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
    EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
    在VB6中应用ADO导出EXCEL文件代码: 
    Dim cn  As New ADODB.Connection
    cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
    cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
    ------------------------------------------------------------------------------------------------4、在SQL SERVER里往Excel插入数据:
    -- ======================================================
    insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
    'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)T-SQL代码:
    INSERT INTO  
    OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
    'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
    (bestand, produkt) VALUES (20, 'Test')  
      

  10.   

    有点复杂啊,看的有点晕了,可能说的不清楚,大家看一下我举的这个事例。
    A  EXCEL表格  
      表名:POS 
          字段    ID        卡号      金额        积分      ........ 
                 1        001        10            10  
                 2        002        10            10  
                 3        003        10            10    
      ---------------------------  
    B  数据库  
      表名:VIP  
          字段    ID        卡号      金额        积分    ........ 
                 1        002        20            20  
                 2        003        20            20  
                 3        004        20            20  
    最后要求的结果是   表名:VIP  
          字段    ID        卡号      金额        积分    ........ 
                 1        001        30            30 
                 2        002        30            30  
                 3        003        30            30  
                 4        004        20            20  
      

  11.   

    试了,语句没有问题,现在问题是我怎样把excel表格导入到数据库中,然后再运算。有整个步骤吗,谢谢啊。
      

  12.   

    --也可以不用先导入。
    UPDATE V SET
        V.金额 =V.金额 +P.金额,V.积分 =V.积分 +P.积分
    FROM VIP V
    JOIN (
    SELECT ID,卡号,SUM(金额) 金额,SUM(积分) 积分 
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\POS.xls";
          User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] 
    GROUP BY ID,卡号) P 
    ON V.ID=P.ID AND V.卡号=P.卡号 
      

  13.   

    语句运行没错,但是没有更新数据库表。
    警告: 聚合或其它 SET 操作消除了空值。(所影响的行数为 0 行)
      

  14.   

    UPDATE V SET
        V.金额 =V.金额 +P.金额,V.积分 =V.积分 +P.积分
    FROM VIP V
        JOIN (
            SELECT ID,卡号,SUM(ISNULL(金额,0)) 金额,SUM(ISNULL(积分,0)) 积分 
            FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\POS.xls";
                  User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] 
            GROUP BY ID,卡号) P 
            ON V.ID=P.ID AND V.卡号=P.卡号 
      

  15.   

    感谢 Tony 问题解决了,也谢谢大家的帮助。csdn真是太好了,后悔来晚了。这是后来Tony帮我远程解决的代码,分享给大家,希望对后来者有帮助。再次谢谢Tony了。
    UPDATE v SET
        V.xfje =V.xfje +P.xfje,V.jf =V.jf +P.jf
    FROM hyxx V
        JOIN (
            SELECT ID,kh,SUM(xfje) xfje,SUM(jf) jf 
            FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="d:\share.xls";
                  User ID=Admin;Password=;Extended properties=Excel 5.0')...[sheet1$] 
            WHERE ID IS NOT NULL
            GROUP BY ID,kh) P 
            ON  V.kh=P.kh set identity_insert hyxx on
    INSERT hyxx(ID,Address,BOXSC,BZ,CARDID,CARDTYPE,CSRQ,CZJE,czy,DHCS,DQ,DQCS,DQDATE,DW,FKFD,HYLB,HYLX,hyzp,id2,iDATE,JF,JSHYSL,JSRID,JSRName,JSSms,KH,lastupdate,LastXFSJ,LJJF,Name,Psw,PSW2,PYM,SendSMS,sp_code,sp_LastSJ,TCHY,TCYG,Tel,TEMPLB,XB,XFCS,XFJE,YWYID,YWYName,ZCS,ZFZDY1,ZFZDY2,ZFZDY3,ZFZDY4,ZFZDY5,ZFZDY6,ZFZDY7,ZFZDY8,ZJE,ZT) 
    SELECT ID,Address,BOXSC,BZ,CARDID,CARDTYPE,CSRQ,cast(CZJE as money),czy,DHCS,DQ,DQCS,DQDATE,DW,FKFD,HYLB,HYLX,cast(hyzp as varbinary(8000)),id2,iDATE,JF,JSHYSL,JSRID,JSRName,JSSms,KH,lastupdate,LastXFSJ,LJJF,Name,Psw,PSW2,PYM,SendSMS,sp_code,sp_LastSJ,TCHY,TCYG,Tel,TEMPLB,XB,XFCS,XFJE,YWYID,YWYName,ZCS,ZFZDY1,ZFZDY2,ZFZDY3,ZFZDY4,ZFZDY5,ZFZDY6,ZFZDY7,ZFZDY8,cast(ZJE as money),ZT 
    FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="d:\share.xls";
                  User ID=Admin;Password=;Extended properties=Excel 5.0')...[sheet1$] AS P
    WHERE ID IS NOT NULL
        AND NOT EXISTS(
            SELECT 1 FROM hyxx
            WHERE kh=P.kh)
    set identity_insert hyxx off
    select * from hyxx