易截截图软件、单文件、免安装、纯绿色、仅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这种情况怎么办？ - Delphi / Windows SDK/API

就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......

2009学习delphi的前景

我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到 
看到delphi� ......

强烈建议DELPHI版更换大版 - Delphi / 非技术区

hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的

引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......

jmp,je,jnz在delphi中的写法

function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
  mov eax,[eax]
  xor eax,[ecx+4]
  cmp eax,0
  je @b
 end;
这样写编译不过去。请问如何� ......

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

Delphi(Pascal) code:

function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='导出的文件'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号