Nieuw lid |
|
ja ik heb het eigenlijk redelijk wat korter gedaan:
Dim Command As New OleDbCommand("SELECT COUNT(UserName) FROM tbl_users WHERE Username = '" & txt_Name.Text & "'", Connection)
Dim RecordCount As String = CType(Command.ExecuteScalar(), String)
lbl_status.Text = RecordCount
Dim Command As New OleDbCommand("SELECT COUNT(UserName) FROM tbl_users WHERE Username = '" & txt_Name.Text & "'", Connection) Dim RecordCount As String = CType(Command.ExecuteScalar(), String) lbl_status.Text = RecordCount
het heeft me heel wat tijd gekost om het te zoeken maar het werkt |