代码如下 dr2 是mysql表
1我从商品表 把数据批量导入到 dr2 已经测试成功
2 想要保存dr2 时候去失败了。提示错误，不知道应该怎么办，请各位大侠指点
Dim Cols1() As String = {"cn_name1","costPrice","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","cs2","cs1","cs3","adddata","pinpaifenlei","spic","riqifenlei","ppic","length1","q2","pinpai"}
Dim Cols6() As String = {"cn_name1","costPrice","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","cs2","cs1","cs3","adddata","pinpaifenlei","spic","riqifenlei","ppic","length1","q2","pinpai"}
Dim Cols2() As String = {"cn_name1","costPrice","weight","length","eng_name","pic","cn_name","width","gongxiang","isCheck","mu","lei","cs2","cs1","cs3","adddata","pinpaifenlei","spic","riqifenlei","ppic","length1","q2","pinpai"}
For Each dr1 As DataRow In DataTables("商品").Select("[id] >0")
Dim dr6 As DataRow = DataTables("ivan").AddNew()
Dim dr2 As DataRow = DataTables("分类_table1").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr6(Cols6(i)) = dr1(Cols1(i))
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim connStr As String = "server=1.1.1.1; port=3306; user id=root; password=7761; database=ddm;CharSet=utf8" 'conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
cmd = new MySql.Data.MySqlClient.MySqlCommand("update new ", conn) '这里写操作语句,跟sql一样
cmd.ExecuteNonQuery()
conn.close
MessageBox.show("成功")
加好友 
发短信
Post By：2018/4/18 9:35:00 [只看该作者]
