【结贴】ado导入excel 问题

kcyjy · 发表于 2010-7-6 13:28:42

ADOQuery1.ConnectionString:='Driver={Microsoft Excel Driver (*.xls)};DBQ='+OpenDialog1.FileName+'' ;
   //////////////////////////价格明细///////////////////////////////////////

   ADOquery1.SQL.CommaText:='select * from [价格明细$]' ;
   ADOquery1.close;
   ADOquery1.open;
   intOPDState:=0;
   ADOquery1.First;

   // Query2.CommandText:='select * from ShotLocker where EndDate ='''+pEndDate+'''';
   // Query2.Close;
   // Query2.Open;
   // Query2.edit;
   DataSetBroker2.DataSet.Edit;
   for i:=1 to  ADOquery1.RecordCount  do
   begin
   DataSetBroker2.DataSet.Insert;
   //DataSetBroker2.DataSet.FieldByName('ID').Asstring:=Business.System.JSCommon.CreateGUIDStr;
   DataSetBroker2.DataSet.FieldByName('Supplier').Asstring:=ADOquery1.FieldByName('生产厂家').Asstring;
   DataSetBroker2.DataSet.FieldByName('PlaneNO').Asstring:=ADOquery1.FieldByName('平面号').Asstring;
   DataSetBroker2.DataSet.FieldByName('EquipmentName').Asstring:=ADOquery1.FieldByName('设备名称').Asstring;
   DataSetBroker2.DataSet.FieldByName('EquipmentModel').Asstring:=ADOquery1.FieldByName('设备型号').Asstring;
   DataSetBroker2.DataSet.FieldByName('Specs').Asstring:=ADOquery1.FieldByName('规格').Asstring;
   DataSetBroker2.DataSet.FieldByName('Quantity').Asstring:=ADOquery1.FieldByName('数量').Asstring;
   DataSetBroker2.DataSet.FieldByName('ContractAmount').Asstring:=ADOquery1.FieldByName('合同金额(万元)').Asstring;
   DataSetBroker2.DataSet.FieldByName('Remark').Asstring:=ADOquery1.FieldByName('备注').Asstring;

   DataSetBroker2.DataSet.FieldByName('ADJUSTContractAmount').Asstring:=ADOquery1.FieldByName('调整后合同金额(万元)').Asstring;
   DataSetBroker2.DataSet.FieldByName('STYLE').Asstring:=ADOquery1.FieldByName('类型').Asstring;
   DataSetBroker2.DataSet.FieldByName('CHILDSTYPE').Asstring:=ADOquery1.FieldByName('子类型').Asstring;

   ADOquery1.Next;
   end;

发现字符数据读不出来，写成数字的就可以取到比如ADOquery1.FieldByName('设备名称').Asstring
想问下是什么原因

kcyjy · 发表于 2010-7-6 14:16:22

顶贴

zfang · 发表于 2010-7-6 14:17:54

别顶，看到你的问题了，正在看。

zfang · 发表于 2010-7-6 15:48:38

楼主，你上面说的是所有excel中字符的数据取不到还是？

kcyjy · 发表于 2010-7-6 16:04:47

字母开头的都区不到中文也取不到

kcyjy · 发表于 2010-7-6 16:31:16

zfang · 发表于 2010-7-6 16:42:42

能不能把你的excel文件给一个，我这边试试？

kcyjy · 发表于 2010-7-6 17:02:51

附件

zhangxupeng · 发表于 2010-7-6 18:17:52

资源已收到，正在测试中，明日告知结果，另外请楼主说一下你的版本号

kcyjy · 发表于 2010-7-7 08:14:13

3068

		自动登录	找回密码
密码			立即注册