欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

又是一个关于excel文件导入mdb后台的有关问题

更新时间: 2014-01-05 00:57:03 责任编辑: Author_N1

 

又是一个关于EXCEL文件导入mdb后台的问题
当只需要导入excel文件的第一列时,我已经能实现,代码如下:

  ...  ...  ...
sql = "SELECT * FROM [Sheet1$]" 
set rs = conn2.execute(sql)
  ...  ...  ...
 while not rs.eof
   sql = "insert into ab_tbl2(yexm,sfsb_id) values('"& fixsql(rs(0)) &"','"&session("sfsb_id")&"')"
  conn.execute(sql)
   rs.movenext
  ...  ...  ...


但是现在我要导入EXCEL文件的第一列和第二列到MDB数据库的对应字段,那么代码段应该怎么改才合适呢?
--参考方法--
楼主注意红字部分的修改。
EXCEL里面,栏位要与之相对应

  ...  ...  ...
sql = "SELECT * FROM [Sheet1$]" 
set rs = conn2.execute(sql)   
  ...  ...  ...
while not rs.eof
     sql = "insert into AB_tbl2(AAA,BBB,CCC) values('"& fixsql(rs.Fields("AAA")) &"','"& fixsql(rs.Fields("BBB")) &"','"&session("sfsb_id")&"')"
              conn.execute(sql)
              rs.movenext 
              wend 

--参考方法--
红字部分,EXCEL的各个栏位,都要与之相对应

sql = "<span style="color: #FF0000;">insert into AB_tbl2(AAA,BBB,CCC) values('"& fixsql(rs.Fields("AAA")) &"','"& fixsql(rs.Fields("BBB")) &"','"&session("sfsb_id")&"')"</span>
--参考方法--
insert into AB_tbl2(AAA,BBB,CCC) values('"& fixsql(rs.Fields("AAA")) &"','"& fixsql(rs.Fields("BBB")) &"','"&session("sfsb_id")&"')"
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:57:03
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1743/
本文WWW.DOC100.NET DOC100.NET版权所有。