首页 相关文章 Excel数据导入到Access,Sql Server中示例代码

Excel数据导入到Access,Sql Server中示例代码

  将Excel中的数据导入到Access中,前提是在Access中的表已经建好。

  dim conn
  dim conn2
  set conn=CreateObject("ADODB.Connection")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:ook1.mdb"

  set conn2=CreateObject("ADODB.Connection")
  conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:ook1.xls"

  
  sql = "SELECT * FROM [Sheet1$]"
  set rs = conn2.execute(sql)
  while not rs.eof
   sql = "insert into xxx([a],[b]...[ 查看全文 ]

2016-02-19 标签:

Excel数据导入到Access,Sql Server中示例代码的相关文章

手机页面
收藏网站 回到头部