vb文本框多行数据写入数据库
字段1 字段2 字段3
10001DE25512001K1206040001
10002DE25512002K1206040002
10003DE25512003K1206040003
10004DE25512004K1206040004
10005DE25512005K1206040005
10006DE25512006K1206040006
10007DE25512007K1206040007
10008DE25512008K1206040008
在vb文本框中设置multiline=ture,从excel中复制信息到文本框中,怎样可以把这些数据同时写入sql2000数据库中?
[解决办法]
Dim strTmp As String, strLine() As String, i As Integer
StrTmp = Replace(Text1.Text, vbTab , ",")
Do Until Instr(strTmp, Space(2)) = 0
StrTmp = Replace(strTmp, Space(2), Space(1))
Loop
StrTmp = Replace(strTmp, Space(1), ",")
strLine = Split(strTmp, vbCrLf)
For i = 0 To Ubound(strLine)
cn.Execute "INSERT INTO your_table (字段1, 字段2, 字段3) VALUES(" & strLine(i) & ")"
Next i