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
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
TAMA NGA TS, DAPAT TALAGA MAG SET KA NANG DATABASE COMMAND AT DATABASE READER PARA MA IDENTIFY ANG DUPLICATE ENTRY.. PERO OK NA RIN YAN BASTA MAAYOS NA ANG RUNNING NG SYSTEM..