从多台电脑的 Mysql数据库查询数据后新增1列并赋值IP地址问题

[qqww09633]

各位大哥请教下：使用VB.NET 从多台电脑的Mysql数据库查询数据，在datatable新增1列并填充IP地址，如下图所示（从192.168.1.118和127.0.0.1这两台电脑查询Mysql数据库，查询后新增1列STKID并赋值查询的IP地址），4~6行STKID填充的IP地址我想要的结果是192.168.1.118，但是一直填充的是127.0.0.1，请问怎样修改？

           
Using dt As New DataTable
dt.Columns.Add("STKID")

For i = 0 To ListBox1.Items.Count - 1
IpAddress = ListBox1.Items(i)
Try

         Dim cn As New MySqlConnection("server=" & IpAddress & ";uid=***;pwd=***;database=***;")
         cn.Open()
         Dim sql As String = "Select ************** From*************  Where ***********"
         cm = New MySqlCommand(sql, cn)
         dr = cm.ExecuteReader()
         dt.Load(dr)

         For Each row As DataRow In dt.Rows
         row.Item("STKID") = IpAddress
         Next

Catch ex As Exception
         MsgBox("错误")
End Try
Next
DataGridView2.DataSource = dt
DataGridView2.AllowUserToAddRows = False
End Using

[yishumei]

引用 0 楼 qqww09633 的回复:

各位大哥请教下：使用VB.NET 从多台电脑的Mysql数据库查询数据，在datatable新增1列并填充IP地址，如下图所示（从192.168.1.118和127.0.0.1这两台电脑查询Mysql数据库，查询后新增1列STKID并赋值查询的IP地址），4~6行STKID填充的IP地址我想要的结果是192.168.1.118，但是一直填充的是127.0.0.1，请问怎样修改？

Dim dt(0 To ListBox1.Items.Count - 1) As System.Data.DataTable For i = 0 To ListBox1.Items.Count - 1 IpAddress = ListBox1.Items(i) Try dt(i) = New System.Data.DataTable dt(i).Columns.Add("STKID") Dim cn As New MySqlConnection("server=" & IpAddress & ";uid=***;pwd=***;database=***;") cn.Open() Dim sql As String = "Select ************** From************* Where ***********" cm = New MySqlCommand(sql, cn) dr = cm.ExecuteReader() dt(i).Load(dr) For Each row As DataRow In dt(i).Rows row.Item("STKID") = IpAddress Next Catch ex As Exception MsgBox("错误") End Try If (i > 0) Then dt(0).Merge(dt(i)) End If Next DataGridView2.DataSource = dt(0) DataGridView2.AllowUserToAddRows = False

[qqww09633]

引用 2 楼 yishumei 的回复:

感谢感谢！

[良朋]

在你的第20行设个断点，每个循环都看一下IpAddress的值。