实现从excel表导入到SQL Sever中，并与SQL中的两表进行判断并最终插入，已有程序，麻烦看看(50分)

linseaman · 2008-11-29

实现从excel表导入到SQL Sever中，并与SQL中的两表进行判断并最终插入，已有程序，麻烦看看 我的思路是;将excel表“数据导出文件”（表1）通过程序导入与SQL中的“客户基本资料表”（表2）做判断，表1存在表2，就不做处理，若不存在，则进行下一步，将“数据导出文件”（表1）与SQL中的“税控导入资料”表（表3）做判断，存在不做处理，不存在则将表1插入到表3中，程序实现过称如下： unit UText; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Buttons, StdCtrls, DB, ADODB, Grids, DBGrids; type   TForm1 = class(TForm)     SpeedButton1: TSpeedButton;     Edit1: TEdit;     Label1: TLabel;     Button1: TButton;     OpenDialog1: TOpenDialog;     Button2: TButton;     ADOConnection1: TADOConnection;     DBGrid1: TDBGrid;     ADOTable1: TADOTable;     DataSource1: TDataSource;     Label2: TLabel;     ADOQuery1: TADOQuery;     Button3: TButton;     ADOTable2: TADOTable;     DataSource2: TDataSource;     DBGrid2: TDBGrid;     ADOQuery2: TADOQuery;     Label3: TLabel;     Button4: TButton;     procedure SpeedButton1Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure Button4Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} var   sSql,qSql,exlpath: string; procedure TForm1.FormCreate(Sender: TObject); begin ADOTable1.Active :=True; ADOTable2.Active :=True; end; procedure TForm1.SpeedButton1Click(Sender: TObject);   //打开Excel表 begin   OpenDialog1.Title := '请导入Excel表';   OpenDialog1.Filter := 'Excel(*.xls)|*.xls';   if OpenDialog1.Execute then      edit1.Text := OpenDialog1.FileName; end; procedure TForm1.Button1Click(Sender: TObject);  //判断路径和连接数据库 begin   if (trim(edit1.Text) = '') then   begin     MessageBox(GetActiveWindow(), '请选择正确路径！', '警告', MB_OK +       MB_ICONWARNING);     exit;   end;   exlpath:= trim(edit1.Text);          //Excel路径   ADOConnection1.Connected := False; end; procedure TForm1.Button2Click(Sender: TObject); begin   close; end; procedure TForm1.Button3Click(Sender: TObject); begin ADOQuery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source='+exlpath+ ';Extended Properties="Excel 8.0;Persist Security Info=False;HDR=YES;IMEX=1"'; ADOTable1.Active :=False; try   ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;' +   'Integrated Security=SSPI;Persist Security Info=False;' +   'Initial Catalog=master;Data Source=NSHARP-SMAXF';   ADOConnection1.Connected := true; try with ADOQuery1 do begin ADOQuery1.Close; ADOQuery1.SQL.Clear; sSql :='Insert into 客户基本资料表(单位名称,通信地址)'+        'select 客户名称,客户地址 from [exlpath$]'+        'Where [exlpath$].客户地址 not in'+        '(select 单位名称 from 客户基本资料表)'; ADOQuery1.Parameters.Clear; ADOQuery1.ParamCheck := false; ADOQuery1.SQL.Text := sSql; ADOQuery1.Execsql; MessageBox(GetActiveWindow(), '导入EXCEL成功!', '提示', MB_OK + MB_ICONWARNING); exit; ADOTable1.Active :=True; end; except MessageBox(GetActiveWindow(), '客户名称不存在，请执行下一步！', '提示', MB_OK + MB_ICONWARNING); end;  except   MessageBox(GetActiveWindow(), '连接SQL Sever失败!', '警告', MB_OK +       MB_ICONWARNING);   end; end; procedure TForm1.Button4Click(Sender: TObject); begin ADOQuery2.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source='+exlpath+ ';Extended Properties="Excel 8.0;Persist Security Info=False;HDR=YES;IMEX=1"'; ADOTable1.Active :=False; try with ADOQuery2 do begin ADOQuery2.Close; ADOQuery2.SQL.Clear; qSql :='Insert into 税控导入资料(客户名称,客户地址电话)'+        'select 客户名称,客户地址 from [exlpath$]'+        'Where [exlpath$].客户地址 not in'+        '(select 客户名称 from 税控导入资)'; ADOQuery2.Parameters.Clear; ADOQuery2.ParamCheck := false; ADOQuery2.SQL.Text := qSql; ADOQuery2.Execsql; MessageBox(GetActiveWindow(), '导入EXCEL成功！', '提示', MB_OK + MB_ICONWARNING); exit; ADOTable2.Active :=True; end; except MessageBox(GetActiveWindow(), '客户存在，导入失败！', '提示', MB_OK + MB_ICONWARNING); end; end; end. 附：表2，表3（都在SQL Sever中先创建） SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[客户基本资料表]( [系统编号] [int] IDENTITY(1,1) NOT NULL, [单位级别代码] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [单位名称] [varchar](255) COLLATE Chinese_PRC_CI_AS NOT NULL, [单位电话] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL, [所在省份代码] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [所在城市代码] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [邮政编码] [varchar](6) COLLATE Chinese_PRC_CI_AS NULL, [通信地址] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL, [公司网址] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL, [公司类型代码] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [公司性质代码] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [所在行业代码] [varchar](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [经营品牌] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL, [行业地位] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL, [其它描述] [text] COLLATE Chinese_PRC_CI_AS NULL, [录入日期] [datetime] NULL, [录入人员代码] [varchar](50) COLLATE Chinese_PRC_CI_AS NOT NULL, [公司传真] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL, [月开票量] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL, [可能购买的产品] [varchar](10) COLLATE Chinese_PRC_CI_AS NULL, [最后跟踪时间] [datetime] NULL, [签约标志] [varchar](2) COLLATE Chinese_PRC_CI_AS NULL,  CONSTRAINT [PK_客户基本资料表] PRIMARY KEY CLUSTERED ( [系统编号] ASC ) ON [PRIMARY] ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO SET ANSI_PADDING OFF CREATE TABLE [dbo].[税控导入资料]( [客户编码] [int] IDENTITY(1,1) NOT NULL, [客户名称] [varchar](50) COLLATE Chinese_PRC_CI_AS NOT NULL, [客户地址电话] [varchar](255) COLLATE Chinese_PRC_CI_AS NULL,  CONSTRAINT [PK_税控导入资料] PRIMARY KEY CLUSTERED ( [客户编码] ASC ) ON [PRIMARY] ) ON [PRIMARY] excel表（表1） 客户代码客户名称客户税号客户地址客户开户银行账号企业税号自定义字段1 自定义字段2 自定义字段3 自定义字段4 自定义字段5 001 广州市先一商贸在限公司 440102724823977 广州市东山区淘金路98号202号  83489401 广州市商业银行海幢支行286-8001514-90 44010175559533X 003 广州市东庄世纪联华超市有限公司 440106747555856 广州市天河区东莞庄路38号九洲文化家园B1栋  61366166 工商银行广州市花城支行3602028509200154565 44010175559533X 005 PKA_非KA客户 44010175559533X 1 （货物名称详见货物清单） 44010175559533X 101011 广州市龙涛货仓有限公司 440106278743466 广州市广汕公路龙洞税务所办公楼87031056 工商银行麒麟岗办事处130-0248-0009423 44010175559533X 101018 广州市宏丽有限公司 440111725007402 广州市白云区机场路1111号86432848 中行广州市珠江支行8020-08573908091001 44010175559533X 广州市宏丽有限公司 101054 广州市嘉福百货有限公司 440106618698850 广州市广汕路自编168号大楼首层之六87041678 广州商行福利支行0019-898-2-803035703 44010175559533X 101066 广东胜佳超市有限公司 440104739863429 广州市越秀区小北路52号四楼83516856 广州市商业银行恒福支行800051757402016 44010175559533X 004 OTH_零散客户 44010175559533X 006 RKA_地区性KA客户 44010175559533X 101003 南方大厦西城广客隆 440103191143265 "广州市环市西路89号(首层和地下层) 86502328-102" 中行站西办00036138091001 44010175559533X 101017 广州市好又多（广源）百货商业广场有限公司 440111618479463 广州市广源新村景泰直街33号86386419 招行广州天河支行0183439210001 44010175559533X 101023 广州市经济村货仓商场有限公司 440111708386551 广州市白云区广花三路29号86631592 市建行广花三路办事处987-2730161-85 44010175559533X 101049 广州市白云区乔一综合平价超市 440111716306734 广州市石井同德鹅掌垣村口综合楼86483840 中国银行芳村支行272-04395608091001 44010175559533X 101056 广州致美斋经营发展有限公司 440111190515557 广州市白云区三元里大道828号86629520 建行广花三办事处44001491103050454395 44010175559533X 麻烦帮我解决一下，我QQ237683327，可以随时找我

wqhatnet · 2008-11-29

Daviswang · 2008-12-06

程序并不能解决使用中的所有未知问题。建议，编程之外，改由SQL SERVER查询命令处理。 select * from A AS a left outer join B AS b on a.X=b.Y  order by NO. 不知可否。见笑！

实现从excel表导入到SQL Sever中，并与SQL中的两表进行判断并最终插入，已有程序，麻烦看看(50分)

linseaman

Unregistered / Unconfirmed

wqhatnet

Unregistered / Unconfirmed

Daviswang

Unregistered / Unconfirmed

Similar threads