ASP CLASSICO ASP.NET C# SQL / DATABASE VB / VBA VB.NET Todos os fóruns 

IMPEDIR DUPLICADO

 Tópico anterior Próximo tópico Novo tópico

IMPEDIR DUPLICADO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
Resposta escolhida #470499 - 09/01/2017 12:50:39

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Última edição em 09/01/2017 12:53:45 por MARCELO-TREZE

tenta ai

'Declaração
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = "SELECT Nome FROM tblDados Where Nome ='" & txtNome.Text & "'"
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
'GravaDados
    Else
MsgBox  "Usuario Já Cadastrado"
            txtNome.SetFocus
End If

End Sub



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#470516 - 09/01/2017 17:43:02

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


 Anexos estao visíveis somente para usuários registrados

Citação:
:
tenta ai

'Declaração
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = "SELECT Nome FROM tblDados Where Nome ='" & txtNome.Text & "'"
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
'GravaDados
    Else
MsgBox  "Usuario Já Cadastrado"
            txtNome.SetFocus
End If

End Sub



Deu erro...

Segue o exemplo para teste.




Fany

#470517 - 09/01/2017 17:52:44

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


 Anexos estao visíveis somente para usuários registrados

Citação:
:
:
tenta ai

'Declaração
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Private Sub txtNome_LostFocus()
Dim sSQL As String
sSQL = "SELECT Nome FROM tblDados Where Nome ='" & txtNome.Text & "'"
Set Rst = Cnn.Execute(sSQL)

If (Rst.EOF And Rst.BOF) then
'GravaDados
    Else
MsgBox  "Usuario Já Cadastrado"
            txtNome.SetFocus
End If

End Sub



Deu erro...

Segue o exemplo para teste.




Segue o banco de dados.

Fany

#470520 - 09/01/2017 18:23:51

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


FANYSLZ,

Você disse:

"Deu erro"
"Segue exemplo para teste"
"Segue o banco de dados".

Sinceramente, não teve um tempinho para dizer "boa tarde" para os colegas que, tão gentilmente, têm te respondido e procurado auxiliar?


Euzébio Cruz
Criciúma - SC


#470521 - 09/01/2017 18:27:44

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


Citação:
:
FANYSLZ,

Você disse:

"Deu erro"
"Segue exemplo para teste"
"Segue o banco de dados".

Sinceramente, não teve um tempinho para dizer "boa tarde" para os colegas que, tão gentilmente, têm te respondido e procurado auxiliar?



Desculpe! Boa Tarde.

Fany

#470522 - 09/01/2017 18:30:28

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


 Anexos estao visíveis somente para usuários registrados

testa ai



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#470524 - 09/01/2017 18:57:17

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


FANYSLZ,

Desculpada. Sem problemas.

Nosso colega MARCELO-TREZE te enviou o projeto. Acredito muito que funcionará.

Boa sorte.



Euzébio Cruz
Criciúma - SC


#470527 - 09/01/2017 19:40:13

FANYSLZ
SAO LUIS
Cadast. em:Janeiro/2017


Citação:
:
FANYSLZ,

Desculpada. Sem problemas.

Nosso colega MARCELO-TREZE te enviou o projeto. Acredito muito que funcionará.

Boa sorte.



Não funcionou...

Grata,

Fany

#470529 - 09/01/2017 20:05:59

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


 Anexos estao visíveis somente para usuários registrados

Funciona sim, fiz um teste aqui e foi normal
Fiz uma mudança para tu ver.Basta executar.



#470532 - 09/01/2017 20:28:52

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Que erro ocorre?

________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FANYSLZ em 11/01/2017 12:45:20