我创建了一个排队系统,它会显示多个计数器以及客户及其服务组的队列号,但是当我更新它们时,所有数据看起来都像第一个计数器。我的更新功能在计时器滴答时刷新,因此每1秒更新一次信息。
Public Sub updatecountera()
openconnect()
SQLi = "SELECT `counter`, `logconcern`, `logcustcurr` FROM `access` WHERE logstatus= 1 and counter=1 "
SqlRun()
If myData.Rows.Count = 0 Then
countera.Text = "avail"
counteracust.Text = "avail"
counteraservice.Text = "avail"
Else
countera.Text = myData.Rows(0)(0)
counteracust.Text = myData.Rows(0)(1)
counteraservice.Text = myData.Rows(0)(2)
End If
closeConnect()
End Sub
Public Sub updatecounterb()
openconnect()
SQLi = "SELECT `logconcern`, `logcustcurr` FROM `access` WHERE logstatus= 1 and counter=2 "
SqlRun()
If myData1.Rows.Count = 0 Then
counterb.Text = "avail"
counterbcust.Text = "avail"
counterbservice.Text = "avail"
Else
counterb.Text = myData1.Rows(0)(0)
counterbcust.Text = myData1.Rows(0)(1)
counterbservice.Text = myData1.Rows(0)(2)
End If
closeConnect()
End Sub
每个计时器仅勾选所有计数器(计数器,计数器)上的反数据信息。当我尝试包含mydata.clear()
时,它显示“无数据行位置”的错误。如何在不压缩1 sql语句中的所有信息并选择每个数据行的情况下获取所有计数器来更新信息,因为这样做非常麻烦?
是的我错过了'反击'我把它添加到我的计数器上但它仍然显示相同的信息这里是我的sqlrun():
Public Sub SqlRun()
'transfer sql connections
SQL = SQLi
myCommand.Connection = conn
myCommand.CommandText = SQL
'execute adapter commands
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
myAdapter.Fill(myData1)
myAdapter.Fill(mydata2)
End Sub