mysql - 创建自定义 ID 时执行标量错误

Question

当我创建自定义 ID 时，我目前面临 executeScalar 的问题。错误是

用户代码未处理 InvalidOperationException。

Message=Connection 必须有效且打开。

下面是我的代码：

Dim str As String = "select isnull(max(idcr_record),0)+1 from cr_record where Emplid = '" & Session("Emplid") & "'"
Dim com As New MySqlCommand()
'this line was the error
'
Dim count As Integer = Convert.ToInt32(com.ExecuteScalar())

If count = 1 Then
    'insert if no record found
    '
    Dim cc As New MySqlCommand("insert into cr_record values (" & count & "," & Session("Emplid") & ")")
    cc.ExecuteNonQuery()
Else
    'update becoz record already exist
    '
    Dim upd As String = "update cr_record set idcr_record = " & count & " where Emplid = " & Session("Emplid") & " "
    Dim cc As New MySqlCommand(upd)
    cc.ExecuteNonQuery()
End If

Dim length As Integer = 0
Dim val As String = Convert.ToString(count)
length = val.Length
If length = 1 Then
    val = "CR " + "00000" & Convert.ToString(count)
End If
If length = 2 Then
    val = "CR " + "0000" & Convert.ToString(count)
End If
If length = 3 Then
    val = "CR " + "000" & Convert.ToString(count)
End If
If length = 4 Then
    val = "CR " + "00" & Convert.ToString(count)
End If
If length = 5 Then
    val = "CR " + "0" & Convert.ToString(count)
End If
cr_id = "" & val

Answer 1

至少，在执行命令之前，您需要将 SQL 命令字符串和SqlConnection对象传递给SqlCommand对象：

Dim str As String = "select isnull(max(idcr_record),0)+1 from cr_record where Emplid = '" & Session("Emplid") & "'"
Dim conn As New MySqlConnection
conn.ConnectionString = "....."

'pass your SQL command string and MySqlConnection object to MySqlCommand
'
Dim com As New MySqlCommand(str, conn)

conn.Open()
Dim count As Integer = Convert.ToInt32(com.ExecuteScalar())