Private Sub bntCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntCheck.Click
Dim licen As String = txtLicen.Text
Dim objCmd As New SqlCommand
Dim strConn As String
Dim objReader As SqlDataReader
If licen = "" Then
MessageBox.Show("กรุณากรอก หมายเลขทะเบียนรถ")
ElseIf objReader.HasRows Then
MessageBox.Show("หมายเลขทะเบียนนี้ไม่สามารถใช้ได้")
Else
MessageBox.Show("หมายเลขทะเบียนนี้สามารถใช้ได้")
btnSave.Visible = True
End If
Conn.Close()
End Sub
Tag : .NET, Ms SQL Server 2005, VS 2008 (.NET 3.x)