1:
If
(ExistUser("
SELECT * FROM tabela WHERE nome='" & Textbox1.Text & "';")) =
True
Then
2:
'O QUE VAI ACONTECER CASO EXISTA
3:
Else
4:
'O QUE VAI ACONTECER CASO NÃO EXISTA
5:
End If
A função;
1:
Public Function
ExistUser(Sql As String)
As Boolean
2:
Dim
CONEXAO
As New
MySqlConnection 3:
Dim
ADAP
As
MySqlDataAdapter 4:
Dim
sDataSet
As New
DataSet 5:
6:
Dim
tw
As Boolean
=
False
7:
Try
8: CONEXAO.ConnectionString = "SEU_SERVIDOR_DO_BANCO_DE_DADOS" 9: 10: CONEXAO.Open() 11: ADAP =
New
MySqlDataAdapter(Sql CONEXAO) 12: sDataSet.Clear() 13: ADAP.Fill(sDataSet, "usuarios") 14:
If
(sDataSet.Tables("usuarios").Rows.Count() <> 0) Then 15: tw =
True
16:
Else
17: tw =
False
18:
End If
19:
Catch
ex
As Exception
20: End Try 21:
Return
(tw) 22: End Function
Então montamos uma função do tipo Boolean (Verdadeiro/Falso) e chamamos ela setando nosso SELECT, você pode adicionar quantos campos quiser verificar no SELECT que irá retornar sempre Verdadeiro ou Falso
0 comentários:
Postar um comentário