使用asp将csv数据读入数据库

[michale_chen]

我现在要在程序中实现数据库导入导出，保存的格式为.csv，导出已经实现了。导入我用以下的方法
set fso=createobject("Scripting.FileSystemObject")
set f1=fso.OpenTextFile(dirPath, ForReading)
Do while not f1.atEndOfStream
fread=f1.readline
line=split(fread, ",")
但存在一个问题，即line=split(fread, ",")，万一读入的某个数据中本身就有逗号，经过split(fread, ",")后，记录就会比原来多。该怎么解决呢？或者还有什么其他导入csv数据的好好的办法？请各位大侠帮忙。

[-神仙-]

csv是什么格式？
本身因该有解决,问题的办法的吧

[xiaosaye]

Dim cn,oConn,connstr
'打开XLS.
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";" & _
"Extended Properties=Excel 8.0;"
cn.Open
'打开MDB.
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set oConn=server.CreateObject("ADODB.CONNECTION")
oConn.open connstr

'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [Sheet1$]",cn,1,1
do until rsRead.EOF
'写入数据库.
oConn.Execute("Insert into users(userid,password)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "')" )
rsRead.MoveNext
loop

[itera]

你把cvs文件 列之间，用别的来替代 比如Tab键

[itera]

你的cvs文件应该是从SQL Server导出来的吧，在导的时候就可以选择列分隔符号

[amadou]

CsvPath=你的CSV的文件夹
connStr = "Driver={Microsoft Text Driver (*.txt; *.csv)};"&_
"Dbq="& CsvPath &";"&_
"Extensions=csvt;"&_
"Persist Security Info=False;"
set conn = Server.CreateObject("Adodb.Connection")

在这里，文件夹做为一个库，里面的每个CSV文件，将被当做一个表来操作，就跟操作数据库一样,导入也就像两个库互导而已

SELECT * FROM ×××.CSV

[超级大笨狼]

Standard:

"Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;"

[michale_chen]

To xiaosaye:我此处要读入的文件格式是CSV的，如果使用Excel的引擎打开，就会报“外部表不是预期的格式”的错误。
csv文件数据是列之间使用逗号来区分的，所以在读入一行数据的时候，列之间会加上一个逗号来区分。我现在的问题是万一在一列内本身就有逗号，那我读出来，再进行split(content,",")的时候，就会增加列数了。急训解决的办法，请各位大侠帮忙。

[lovedogdog]

mark