专家坐堂-计划任务报错，超时Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim conn As My Sql.Data.MySq lClient.MyS qlConnection

Dim cmd As My Sql.Data.MySqlC lient.MyS qlCommand

Dim connStr As String = "server=1.1.1.1.1; port=3306; user id=root; password=1234; database=ipos;CharSet=utf8" \'设置你的数据库连接字符串

conn = New MySql.Data.MyS qlClient.MySqlConne ction(connStr)

conn.Open

Dim dr As DataRow

For i As Integer = DataTables("ddyg").DataRows.Count - 1 To 0 Step -1

dr = DataTables("ddyg").DataRows(i)

If DataTables("DYDZM").Find("dzm=\'" & dr("gh") & "\' and zd_id=\'" & dr("bmid") & "\'") Is Nothing Then

cmd = new MySql.Data.MySql Client.MySqlC ommand("updat e ipos_dianyuan set zd_id = \'" & dr("bmid") & "\' where dzm = \'" & dr("gh") & "\'", conn) \'这里写操作语句,跟sql一样

cmd.Exe cuteN onQuery()

End If

conn.close

DataTables("DDYG").Save()