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

Mysql vb.net在变量整数上加大和,mysql,vb.net,Mysql,Vb.net,我创建了一个排队系统,它将显示多个计数器以及客户及其服务组的队列号,但当我更新它们时,所有数据看起来都像第一个计数器。“我的更新”功能在计时器计时时刷新,因此每1秒更新一次信息 公共子更新计数器() openconnect() SQLi=“从logstatus=1和counter=1的`access`中选择`counter`、`logconcern`、`logcustcurr`” SqlRun() 如果myData.Rows.Count=0,则 countera.Text=“可用” counte

我创建了一个排队系统,它将显示多个计数器以及客户及其服务组的队列号,但当我更新它们时,所有数据看起来都像第一个计数器。“我的更新”功能在计时器计时时刷新,因此每1秒更新一次信息

公共子更新计数器()
openconnect()
SQLi=“从logstatus=1和counter=1的`access`中选择`counter`、`logconcern`、`logcustcurr`”
SqlRun()
如果myData.Rows.Count=0,则
countera.Text=“可用”
counteracust.Text=“可用”
counteraservice.Text=“avail”
其他的
countera.Text=myData.Rows(0)(0)
counteracust.Text=myData.Rows(0)(1)
counteraservice.Text=myData.Rows(0)(2)
如果结束
closeConnect()
端接头
公共子updatecounterb()
openconnect()
SQLi=“从logstatus=1和counter=2的`access`中选择`logconcern`、`logcustcurr`”
SqlRun()
如果myData1.Rows.Count=0,则
counterb.Text=“可用”
counterbcust.Text=“avail”
counterbservice.Text=“avail”
其他的
counterb.Text=myData1.Rows(0)(0)
counterbcust.Text=myData1.Rows(0)(1)
counterbservice.Text=myData1.Rows(0)(2)
如果结束
closeConnect()
端接头
每个计时器滴答作响,所有计数器(计数器B、计数器C)上仅显示计数器A的信息。当我尝试包含
mydata.clear()
时,它显示一个错误“无数据行位置”。我如何让所有计数器更新信息,而不将所有信息压缩到一条sql语句中并选择每个数据行,因为这样做非常麻烦

编辑以添加SqlRun()方法 是的,我丢失了“counter”,我在计数器B上添加了它,但它仍然显示相同的信息,这是我的sqlrun():


我认为updatecounterb中缺少一些代码,因为SQL语句只返回了2列,而不是3列。这可能会导致您的问题,因为如果MyData1是全局的,那么它可能仍然包含来自upatecountera的值。如果您发布SqlRun方法的内容,这会很有帮助,但我怀疑只是将updatecounterb中的SQL更新为SQLi=“选择
counter
logconcern
logcustcur
FROM
access
其中logstatus=1和counter=2”将解决您的问题是,我缺少了“counter”,我在我的计数器B上添加了它,但它仍然显示相同的信息,这是我的sqlrun()公共子sqlrun()'传输sql连接sql=SQLi myCommand.Connection=conn myCommand.CommandText=sql'执行适配器命令myAdapter.SelectCommand=myCommand myAdapter.Fill(myData)myAdapter.Fill(myData1)myAdapter.Fill(mydata2)End Sub
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