Primary Key ba tinutukoy mo? Kung ganun, basically, gagawa ka ng function nyan.
Sample:
- assuming gamit mo ay ODBC and MySQL database.
- User creation sample (a.k.a User SignUp)
Private Sub btnSave_Click()
If CHECK_Username(txtUsername.Text) = True Then
MsgBox "Username already exist.", vbCritical
Else
MsgBox "Username is available.", vbInformation
End If
End Sub
Private Function CHECK_Username(xUsername As String) As Boolean
'function will return TRUE if pass username (xUsername) has duplicate
'FALSE if none
Dim rs As New ADODB.Recordset
rs.Open "SELECT username FROM tblUser WHERE username='" & xUsername & "';", cn, 1, 3
If rs.RecordCount <> 0 Then 'meaning may duplicate
CHECK_Username = True
Else
CHECK_Username = False
End If
End Function