Excel的相关数据就是没有导入数据库表,请求帮助!
1、控件属性设置
startrow=2
endrow=100
GZ_SJJ_SDF.ID=Sheet1[1,0]
GZ_SJJ_SDF.LB='0831'
GZ_SJJ_SDF.SJ='2007-9-1'
GZ_SJJ_SDF.YGXM=Sheet1[3,0]
GZ_SJJ_SDF.JE=Sheet1[11,0]
GZ_SJJ_SDF.MS=Sheet1[10,0]
2、表设计
员工水电费、所得税记录
CREATE TABLE dbo. GZ_EXCEL (
ID varchar (32) NOT NULL ,
LB varchar (32) NULL ,
SJ datetime NULL ,
SFZHM varchar (32) NULL ,
YGXM varchar (32) NULL ,
JE numeric(10,2) NULL ,
MS varchar (32) NULL ,
Primary key(ID)
)
3、代码
procedure TMainForm.Button1Click(Sender: TObject);
var
str:string;
begin
Business.Forms.ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1);
try
ExcelToTable1.Execute(str);
DataSetBroker1.DataSet.ApplyUpdates;
finally
dialogs.ShowMessage(str);
end;
end; |