Question

我正在尝试从外部csv文件加载数据，该文件在插入SQL表之前需要进行按摩。读取文件很好，但是当我尝试循环流并使用SPLIT函数加载数组时，我得到一个“预期的语句结束”错误。

Do While Not txtFile.AtEndOfStream

    strText = txtFile.ReadLine

    Dim dataArray() As String = Split(strText, ",")    -- Here's where it breaks

    ...

    build sql statement to insert using the zero based array

    RS.Open strSQL, dbConn, adOpenKeyset

Loop

txtFile.Close

我看过BOL和MSDN，但我仍然收到错误。

Answer 1

VBScript不支持类型变量。 VBScript不支持在Dim语句中分配值。使用： -

Dim dataArray()
dataArray = Split(strText, ",")

但是，由于这是DTS任务，为什么不在transfrom中创建文本csv数据源而不是手动创建VBScript代码来使用CSV。

Answer 2

从内存SQL 2k DTS使用vb脚本，因此没有类型。

Dim dataArray = split(strText,",")

用于SQL 2000 DTS包的VB脚本ActiveX任务

2 个答案: