如何插入所有数据，而不是只获得1行

Question

我想从我的数据库的表列中插入所有数据，但现在即时通讯只获取一行/或简而言之，我想要获取所有数据列而不是只有1行，使用此代码IM：

 Try 
    For i = 0 To dt.Rows.Count - 1 
    networkconn.Open()  
    Dim cmd As New OdbcCommand("INSERT INTO networkdatabase.table1(data,result) values('" & dt.Rows(0).Item("data").ToString & "','" & dt.Rows(0).Item("result").ToString() & "')", networkconn) 
    cmd.ExecuteNonQuery() 
    networkconn.close 
    Next 
    Catch ex As Exception 
    End Try 

这是我的表

+------------+----------+ 
| data | result | 
+------------+----------+ 
| 1234567890 | PASSED | 
| Test  | PASSED | 
| SAMPLE  | FAILED | 
| test  | FAILED | 
| GGGGGG  | PASSED | 
| 1111111111 | PASSED | 
| XXXXXXXXXX | PASSED | 
+------------+----------+ 

我的输出

+------------+----------+ 
| data | result | 
+------------+----------+ 
| 1234567890 | PASSED | 
+------------+----------+ 

期望输出

+------------+----------+ 
| data | result | 
+------------+----------+ 
| 1234567890 | PASSED | 
| Test  | PASSED | 
| SAMPLE  | FAILED | 
| test  | FAILED | 
| GGGGGG  | PASSED | 
| 1111111111 | PASSED | 
| XXXXXXXXXX | PASSED | 
+------------+----------+ 

Answer 1

你可以只是让更多的行SQL命令。允许在一个字符串中传递多个命令。仅仅通过分号

INSERT INTO table values(x,y,z); 
INSERT INTO table values(x,y,z); 
INSERT INTO table values(x,y,z); 

Answer 2

分开你要插入的每一行，在TD这样的：

 For i = 0 To dt.rows.count - 1 
      Dim cmd As New OdbcCommand("INSERT INTO networkdatabase.table1(data,result) values('" & dt.Rows(i).Item("data").ToString & "','" & dt.Rows(i).Item("result").ToString() & "')", ServerCN) 
     Next