Question

VB 调用SQL存储过程问题

我有一段调用SQL存储过程的代码，想要把TXT文本里的数据存入SQL数据库，但是只能把每一行数据加入，其它的没有。想大神帮忙看一下问题在哪。代码如下：
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, textline ' 读入一行数据并将其赋予某变量。
lie = Split(textline, " ") '将每一行数据分隔
If UBound(lie) = 3 Then '如果UBound(lie) = 3 ,说明它是第一行内容
gpdm = lie(0)
gpcn = lie(1)
ElseIf UBound(lie) = 6 Then '如果UBound(lie) = 6 ,说明它是数据所在行
Ydate = lie(0)
YOpen = lie(1)
YHigh = lie(2)
YLow = lie(3)
YClose = lie(4)
VOL = lie(5)
AMOUNT = lie(6)
Set cnn_p = Cnn_c.CreateParameter("a1", adVarChar, adParamInput, 50, gpdm)
Cnn_c.Parameters.Append cnn_p
Set cnn_p = Cnn_c.CreateParameter("a2", adVarChar, adParamInput, 50, gpcn)
Cnn_c.Parameters.Append cnn_p
Set cnn_p = Cnn_c.CreateParameter("a3", adVarChar, adParamInput, 50, Ydate)
Cnn_c.Parameters.Append cnn_p
Set cnn_p = Cnn_c.CreateParameter("a4", adVarChar, adParamInput, 50, YOpen)
Cnn_c.Parameters.Append cnn_p
Set cnn_p = Cnn_c.CreateParameter("a5", adVarChar, adParamInput, 4000, bname)
Cnn_c.Parameters.Append cnn_p

Set rs = Cnn_c.Execute '执行

End If

Loop
rs.Update
rs.Close
Close #1

Answer 1

感觉将所有字符串一起传到sqlServer中，在存储过程中进行处理比较好，而不是将执行sql存储过程放在一个循环里

追问

那如果我把所有字符传到SQL里，之后，怎么样把LIE（）里的东西分成几部分呢？可以给我一段代码吗？