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¸