程序員論壇

 找回密碼
 立即註冊
搜索
熱搜: 活動 交友 discuz
查看: 243|回復: 0

read CSV insert to database

[複製鏈接]

8113

主題

1

好友

2萬

積分

版主

Rank: 7Rank: 7Rank: 7

發表於 2014-8-19 13:35:09 |顯示全部樓層
  1. <%
  2.   'CONNECT TO THE DATABASE
  3.   set objconn = Server.CreateObject("ADODB.Connection")
  4.   objconn.Provider="Microsoft.Jet.OLEDB.4.0"
  5.   objconn.Open Server.MapPath("data2.mdb")


  6.   csv_to_read="test.csv"
  7.   set fso = createobject("scripting.filesystemobject")
  8.   set act = fso.opentextfile(server.mappath(csv_to_read),1,False)

  9.   dim sline
  10.   dim sSeg, dataf
  11.   
  12.   Do Until act.AtEndOfStream

  13.   dataf=0
  14.   sline=act.readline
  15.   sSeg=split(sline,",")

  16.   for each sdata in sSeg
  17.           response.write sSeg(dataf)
  18.           dataf=dataf+1
  19.   next

  20.   'dim strsql
  21.   'strsql="INSERT INTO CSV (Sequence, Text, Name, Grade)"
  22.   'strsql=strsql & "VALUES('"&sSeg(0)&"', '"&sSeg(1)&"',
  23.   '"&sSeg(2)"', '"&sSeg(3)&"')"

  24.   'objconn.execute strsql

  25.   loop
  26.   act.close
  27.   set act=nothing

  28.   'CLOSE THE CONNECTION AND CLEAN UP
  29.   objconn.close
  30.   set objconn=nothing
  31. %>
複製代碼
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

程序員論壇

GMT+8, 2019-7-24 11:50 , Processed in 0.090143 second(s), 20 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回頂部
Pocket Money Easy