ต่อไป »

[joesung]

พอดีอยากได้โค๊ต การดักจับ หมายเลขทะเบียนรถ คับ

1. ถ้ากรอกเป็นตัวเลขอย่างเดียวให้ MessageBox.Show("หมายเลขทะเบียนรถเป็นตัวเลขไม่ได้")
2.หมายเขลทะเบียนรถต้องขึ้นต้นด้วย ท กับ ม เท่านั้น ประมาณว่า ถ้ากรอก หมายเลขทะเบียนรถ ขึ้นต้นด้วยตัวอื่น ให้มัน
MessageBox.Show("หมายเลขทะเบียนรถต้องขึ้นต้นด้วย ท กับ ม เท่านั้น")

ขอโค๊ตสองข้อนี้หน่อยน่ะคับ ขอความช่วยเหลือหน่อยน่ะคับ

นี้คือตัวโค๊ตที่ผมเขียนคับ แล้วยังขาด 2 ข้อข้างบนช่ว่ยทีคับ

 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
        'Dim RegPatterm As String = "^[ท|ม]{1}+\w{1}+\s+\d{1,}"

        strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=TblUser;Integrated Security=True"

        Dim Conn As New SqlConnection(strConn)
        Conn.Open()

        objCmd.CommandType = CommandType.Text
        objCmd.CommandText = "select * from [dbo].[Car] where license='" & licen & "'"
        objCmd.Connection = Conn
        objCmd.CommandTimeout = 0

        objReader = objCmd.ExecuteReader
       
        If licen = "" Then
            MessageBox.Show("กรุณากรอก หมายเลขทะเบียนรถ")

        ElseIf objReader.HasRows Then
        MessageBox.Show("หมายเลขทะเบียนนี้ไม่สามารถใช้ได้")
        Else
        MessageBox.Show("หมายเลขทะเบียนนี้สามารถใช้ได้")
        btnSave.Visible = True
        End If

        Conn.Close()

End Sub

[joesung]

ดันนิดครับ