Sub CariData()
CMD = New MySqlCommand("Select * from tbanggota where nomoragt='" & ComboBox1.Text & "'", conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
LblNamaAgt.Text = RD.Item("namaagt")
CMD = New MySqlCommand("Select SUM(totalpjm) AS KETEMU FROM tbpinjam WHERE Nomoragt='" & ComboBox1.Text & "'", conn)
RD = CMD.ExecuteReader
RD.Read()
LblTelahPjm.Text = RD.Item(0)
If LblTelahPjm.Text = 0 Then
MsgBox("" & LblNamaAgt.Text & " tidak punya pinjaman")
End If
Else
MsgBox("Nomor anggota tidak teRDaftar")
ComboBox1.Focus()
Exit Sub
End If
Call Pinjaman()
End Sub
1条答案
按热度按时间h79rfbju1#
标题中提供的错误是很有解释性的。
您正在共享
conn
两个命令之间的变量。如果您的查询是连续的并且在它们之间是关闭的,那么这是很好的。在您的情况下,您应该创建两个不同的连接并将它们传递给您的命令。我不知道您的整个应用程序,但一般来说,在尽可能小的范围内创建/处理您的连接和命令是一种很好的做法,不要让它们长时间存在。此外,您的查询似乎彼此不依赖,如果按以下方式编写,则可以使用相同的连接顺序运行: