這是我的代碼，它將獲取表的列的值
Try
con.Open()
cmd = New MySqlCommand("SELECT agent_id, agent_qualifying, agent_accumulated from tbagent", con)
dr = cmd.ExecuteReader
While dr.Read
aid = dr.GetInt32("agent_id")
qual = dr.GetInt32("agent_qualifying")
acc = dr.GetInt32("agent_accumulated")
checker(aid, qual, acc)
End While
dr.Close()
con.Close()
loadstructure()
Catch ex As Exception
con.Close()
MsgBox(ex.Message, vbCritical)
End Try
這是我的檢查器的代碼
Dim qstat = "Ready"
Dim qnstat = "Not Ready"
Try
dr.Close()
If acc >= qual Then
cmd = New MySqlCommand("update tbagent set agent_qstatus= '" & qstat & "'where agent_id like '" & aid & "'", con)
dr = cmd.ExecuteReader
Else
cmd = New MySqlCommand("update tbagent set agent_qstatus= '" & qnstat & "'where agent_id like '" & aid & "'", con)
dr = cmd.ExecuteReader
End If
Catch ex As Exception
con.Close()
MsgBox(ex.Message, vbCritical)
End Try
基本上當表單加載時，我想檢查 MySQL 中表上的每個代理是否等于或大于合格的銷售。因此，如果他們的累積大于合格他們在代理表中的狀態列將更改為“READY”
uj5u.com熱心網友回復：
你可以做到這是一個單一的sql陳述句。我假設在創建記錄時，狀態為“未準備好”作為該欄位的默認值。
幾個資料庫物件包括Connection和Command使用非托管代碼。這些資源需要通過呼叫objectsDispose方法來釋放。Using...End Using即使出現錯誤，塊也會為我們處理這個問題。這些物件需要在使用它們的方法中宣告，以便可以使用這些塊。
Private Sub UpdateStatus()
Using cn As New MySqlConnection(ConnStr),
cmd As New MySqlCommand("Update tbagent
Set agent_qstatus = 'Ready'
Where agent_accumulated > agent_qualifying ;", cn)
cn.Open()
cmd.ExecuteNonQuery()
End Using
End Sub
然后，如果您想查看資料，則可以檢索資料。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/314909.html
標籤：mysql 网络 视觉工作室-2019