日期:2014-05-16  浏览次数:20797 次

又是一个关于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?asp导入?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")&"')"