检查表中是否存在值;显示MessageBox

Question

我有一张“发票”表，其中包含发票编号的列。

添加新发票时，我想检查它是否已存在。如果存在，则向用户生成一个MessageBox，表示已经有一个带有此编号的记录。

如何做到这一点？

我正在使用Visual Basic 2010和SQL Server 2008。

Answer 1

尝试这样的事情：

Dim SomeInvoiceNumber As String = ""
Using conn As New SqlClient.SqlConnection("YourConnectionString")
    Using cmd As SqlClient.SqlCommand = conn.CreateCommand()

        cmd.CommandText = "SELECT 1 FROM Invoices WHERE InvoiceNumber = @InvNum"
        cmd.Parameters.AddWithValue("@InvNum", SomeInvoiceNumber)
        conn.Open()
        Dim exists As String = cmd.ExecuteScalar().ToString()

        If exists = "1" Then
            MessageBox.Show(SomeInvoiceNumber & " exists already.")
        End If
    End Using
End Using