สอบถามเรื่่อง Code การเพิ่มและแก้ไขข้อมูล โดยมีตรวจสอบ Username ด้วย

if status = add then

 // Code Sql insert

else

 // Code Sql Update

enf if

			Dim intNumRows As Integer
			strSQL = "SELECT COUNT(*) FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "		
			objCmd = New SqlCommand(strSQL, objConn)
			intNumRows = objCmd.ExecuteScalar()

			IF intNumRows > 0 Then
				Me.lblStatus.Text = "CustomerID already exist."
			Else	
			

				strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
				" VALUES " & _
				" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
				" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"

				objCmd = New SqlCommand
				With objCmd
				   .Connection = objConn
				   .CommandText = strSQL
				   .CommandType = CommandType.Text		   
				End With

				objCmd.ExecuteNonQuery()            

			End IF