vb文本框多行数据写入数据库

Question

字段1       字段2             字段3    
10001 DE25512001 K1206040001
10002 DE25512002 K1206040002
10003 DE25512003 K1206040003
10004 DE25512004 K1206040004
10005 DE25512005 K1206040005
10006 DE25512006 K1206040006
10007 DE25512007 K1206040007
10008 DE25512008 K1206040008
在vb文本框中设置multiline=ture,从excel中复制信息到文本框中，怎样可以把这些数据同时写入sql2000数据库中？

Answer 1

sql="insert into table(字段1,字段2,字段3) values('" & 字段1.text & "','" & 字段1.text & "','" & 字段1.text & "') "

Answer 2

我是想把信息粘贴到文本框中，如图所示，然后单击一下command控件就可以把所以数据写入数据库中

Answer 3

Dim strTmp As String, strLine() As String, i As IntegerStrTmp = 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

Answer 4

如果复制的是 Excel 工作表的全部内容，则可以将 Excel 当作外部数据库，直接导入记录到目标数据库。