使用vbscript从web表单导入txt文件到sqlserver数据库

Question

我被要求构建一个web应用程序来报告存储在另一个系统中的信息。另一个系统被锁定，但会允许我将数据导出为csv文件。

我想在我的应用程序上使用html表单，以便人们（夜班！）可以将数据从其他系统导入到我的web应用程序。

为了让其他人了解我一直在使用VBScript和尝试使用在所有数据库操作以下模式我的代码：

打开连接 生成查询 执行查询 做与结果的东西（如果合适的话） 关闭连接

是否可以使用此模式导入txt文件？即。纯粹基于SQL而不使用存储过程？

有没有人有代码示例？

希望是有道理的。

谢谢。

德里克

Answer 1

一些注意事项。

Set cn = CreateObject("ADODB.Connection") 
''SQL Server Express and ODBC, more connection strings: 
''http://www.connectionstrings.com/sql-server-2008 
'' 
strcon = "ODBC;Description=Test;DRIVER=SQL Server;SERVER=Server\SQLEXPRESS;" 
strcon = strcon & "Trusted_Connection=Yes;DATABASE=Test" 

cn.Open strcon 
strSQL = "SELECT * INTO NewCSV " 
strSQL = strSQL & "FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0'," 
strSQL = strSQL & "'Text;HDR=Yes;FMT=Delimited;DATABASE=c:\docs\', " 
strSQL = strSQL & "'SELECT * FROM [Test.csv]');" 

cn.Execute strSQL, RecordsAffected 
MsgBox RecordsAffected 

您可能必须启用即席查询：http://technet.microsoft.com/en-us/library/ms187569.aspx 也可以使用文本的ACE提供商，但它可能会变得复杂起来：http://blogs.lessthandot.com/index.php/DataMgmt/DBProgramming/MSSQLServer/ace

列混合型数据可以是一个问题CSV。 IMEX可以提供帮助，但前提是在注册表中设置的范围适合。

编辑再评论

上查看CSV数据的一些注意事项：

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Docs\;" 
strcon = strcon & "Extended Properties=""Text;FMT=Delimited;HDR=Yes;IMEX=1"";" 

cn.Open strcon 

strSQL = "Select * From [Test.csv]" 

rs.Open strSQL, cn 

MsgBox rs.GetString