vb.net在变量整数上添加大量和

时间:2017-03-28 14:30:02

标签: mysql vb.net

我创建了一个排队系统,它会显示多个计数器以及客户及其服务组的队列号,但是当我更新它们时,所有数据看起来都像第一个计数器。我的更新功能在计时器滴答时刷新,因此每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()方法

是的我错过了'反击'我把它添加到我的计数器上但它仍然显示相同的信息这里是我的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

0 个答案:

没有答案