易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi excel内容转换格式导入sql

Delphi(Pascal) code:

......
qry8.SQL.Add('SELECT * from [sheet1$]');
......

qry3.SQL.Add('insert into epptable(epno,epname)');
qry3.SQL.Add('Values('+QuotedStr(qry8.fieldbyName('员工编号).AsString)+','+QuotedStr(qry8.fieldbyName('员工姓名).AsString)+')');



以上是excel内容导入表epptable,现要求excel表“员工编号”一列，自动转换为8位数值编号导入数据库表，如何实现？
比如excel中员工编号是1,导入表epptable是00000001；
          员工编号是020,导入表epptable是00000020

引用
试试用:
Format('%08d",[strtointdef(qry8.fieldbyName('员工编号).AsString,0)])


好像不行啊
Delphi(Pascal) code:

......
qry8.SQL.Add('SELECT * from [sheet1$]');
......

qry3.SQL.Add('insert into epptable(epno,epname)');
qry3.SQL.Add(' select LEFT('00000000',8 - LEN(QuotedStr(qry8.fieldbyName('员工编号).AsString)))'
+QuotedStr(qry8.fieldbyName('员工编号).AsString)+','+QuotedStr(qry8.fieldbyName('员工姓名).AsString)+')');'


我的少了'号
我的意思,先用strtointdef将qry8.fieldbyName('员工编号').AsString转成整型,然后用format�


相关问答：

关闭电脑时,Delphi程序会出发什么事件?

RT
我在关闭Delphi程序的时候需要向INI文件中写点东西.
下次启动Delphi程序的时候需要读,在Delphi程序的OnClose事件中写了没问题,但我发现如果程序开着,然后将机器:开始->关闭计算机->关闭或者重新启动的时� ......

delphi 2010 dbgrideh EhLib5.0.13 导出文件出错

Delphi(Pascal) code:

function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='导出的文件'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......

xml创建后如何销毁? - Delphi / 网络通信/分布式开发

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
使用xml.responseText可以获取网页源码,但是再次 ......

利用ArcGIS和Delphi开发的问题

很简单的问题，如何在组件mapcontrol中显示AutoCAD绘制的地图信息？请详细指教


什么情况？？？？？？？？？？？？？？？

mapcontrol是什么东西呀
显示AutoCAD绘制的地图信息,从网上找控件吧,
或者您有解释 ......

Delphi使用SQL Server如何可以不安装SQLServer2000

如题所示
小弟使用Delphi7环境进行数据采集，采集到的数据放入SQL Server2000数据库中，但是想不安装SQLServer2000来实现从其它计算机上运行此程序，不知如何实现？望各位大虾告知一二。
另外，现在小弟遇到了一个 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号