VERIFICAR SE O USUARIO JA EXISTE NA HORA DE CADAST

LUIZCOMINO 02/07/2012 08:59:37
#405301
só isso amigão!

Conecta True

Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)


If RS.EOF Then
GravaDados
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])
txtNome.SetFocus
End If


Conecta False
RICKSOUSA 02/07/2012 09:09:49
#405304
amigão eu fiz assim mesmo mais continua gravando....

olha o codigo que eu postei....


Conecta True

Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)

If CStr(txtCsenha.Text) <> CStr(txtSenha.Text) Then
MsgBox [Ô]Senha não confere com a mesma![Ô], vbCritical, [Ô]Login![Ô]
Else
If cboFuncao.Text = [Ô]Escolha a Função[Ô] Then
MsgBox [Ô]Qual é a sua Função?, Você precisa escolher sua Função![Ô], vbCritical, [Ô]Aviso![Ô]
Exit Sub
Else
If RS.EOF Then
GravaDados
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])
txtNome.SetFocus
End If

End If
LUIZCOMINO 02/07/2012 09:21:01
#405305
se você copiar o código que eu fiz ai em um botão ele continua gravando os 2?
RICKSOUSA 02/07/2012 10:48:43
#405310
sim amigo, eu copiei o codigo que vc fez....
MARCELO.TREZE 02/07/2012 13:30:02
#405320 Resposta escolhida
Bom cheguei

assim colega

Conecta True

Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas WHERE nome=[ô][Ô] & txtUserName.Text & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)

If (RS.EOF And RS.BOF) then
GravaDados
    Else
MsgBox  [Ô]Usuario Já Cadastrado[Ô] 
            txtNome.SetFocus
End If


Conecta False


a função acima vai evitar de se gravar os nomes duplicados dentro disto vc pode colocar o restante de suas funções

teste e veja

ps: to no ralo aqui por isso não tenho entrado no msn
ADILSOO 02/07/2012 13:46:39
#405325
Simples e rapido..
ALEVALE 02/07/2012 14:02:35
#405327
Pessoal estou anexando algumas classes minhas que utilizo para fazer conexão com o banco.
Devido a grande dúvidas de conexão com o SQL etc, estou anexando para exemplo.

Utiliza isso no VB6.

As classes são para [Ô]Pesquisa no SQL[Ô], [Ô]Ler os dados do Banco no arquivo INI[Ô],[Ô]Conexão com o BD[Ô] e as funções básicas para utilização das mesmas.
NILSONTRES 02/07/2012 15:06:45
#405334
O recomendado é fazer a validação dos dados primeiro, isso para um codigo mais organizado, consequentemente menos erros.

If CStr(txtCsenha.Text) <> CStr(txtSenha.Text) Then
MsgBox [Ô]Senha não confere com a mesma![Ô], vbCritical, [Ô]Login![Ô]
txtCsenha.setfocus
exit sub
end if

If cboFuncao.Text = [Ô]Escolha a Função[Ô] Then
MsgBox [Ô]Qual é a sua Função?, Você precisa escolher sua Função![Ô], vbCritical, [Ô]Aviso![Ô]
cboFuncao.setfocus
Exit Sub
end if

Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô][Ô]

[ô]Outra coisa, altere para:
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[ô][Ô] & txtUserName & [Ô][ô][Ô]

Set RS = Conexao.Execute(sSQL)

If RS.EOF Then
GravaDados
Else
MsgBox ([Ô]Usuario Já Cadastrado[Ô])
txtNome.SetFocus
End If
RICKSOUSA 02/07/2012 15:52:12
#405344
Citação:

If (RS.EOF And RS.BOF) then



mestre marcelo tentei fazer do jeito que vc disse, mais mesmo assim esta duplicando ai eu tive a ideia de colocar

[txt-color=#0000f0]if Not RS.EOF And Not RS.BOF then[/txt-color]

ai sim aparece Usuario ja existe....

tentei inverter ao inves de colocar gravardados.
LUIZCOMINO 02/07/2012 15:53:27
#405345
posta o código do gravardados
Página 2 de 3 [22 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar