mysql语法在vb.net中不能有减法符合-，改成_这个，同时用sql语句插入table data中的数据进数据库，就是使用for循环就好

    Dim str As String = "server=localhost;uid=root;pwd=123456;database=vb测试;Port=3306"
    Dim con As New MySqlConnection(str)
    '实例化链接
    con.Open()

Dim dataRow As String = “insert into " + data.TableName + " values (”
For m = 0 To data.Rows.Count - 1
For n = 0 To data.Columns.Count - 1
If (n = data.Columns.Count - 1) Then
If (data.Rows(m).ItemArray(n).ToString = “”) Then
dataRow = dataRow + “‘nothing’”
Else
dataRow = dataRow + “’” + data.Rows(m).ItemArray(n).ToString + “’”
End If
Else
If (data.Rows(m).ItemArray(n) Is Nothing) Then
data.Rows(m).ItemArray(n) = “null”
End If
dataRow = dataRow + “’” + data.Rows(m).ItemArray(n).ToString + “’” + “,”
End If
Next
dataRow = dataRow + “);”
Dim cmd1 As New MySqlCommand(dataRow, con)
cmd1.ExecuteNonQuery()
dataRow = “insert into " + data.TableName + " values (”
Next