VERIFICAR SE O CLIENTE JA ESTA CADASTRADO NO TEXT.

NILTON.VIANNA 09/08/2009 12:07:03
#319344
Vcs tem algum exemplo de como digitar o nome do cliente no text.box
E acusar que já existe..

Grato
JWCELYO 09/08/2009 12:17:36
#319345
eu não entendi muito bem
mias autenticar utilize esse codigo

if textbox.text = [Ô]jão carlos[Ô] then
[ô]cliente logado com sucessul
end if
NILTON.VIANNA 09/08/2009 12:29:33
#319346
ok. colega
é seguinte
Tenho um cadastro de paciente
Quando vou digitar um novo paciente, ele dispare se uma msg cliente já cadastrado!

Direto no campo txt. paciente.text

Grato
TECLA 09/08/2009 13:39:13
#319351
Informe qual o TIPO DE CONEXÃO com o banco de dados você utiliza e parte da ROTINA de conexão.
DANIKULL 09/08/2009 14:42:16
#319357
NILTON_VIANNA, boa tarde.

Acredito que verificar pelo nome não seja a melhor forma, pois se um espaço estiver diferente a consulta retorna um valor errado e com isso você vai ter um cadastro em duplicidade. No meu sistema eu faço esta verificação pelo CPF do cliente, pis este é unico e impossível de ser digitado errado por um ou dois digitadores. Ok???

Agora para poder postar um código de verificação, precisaremos primeiro que você nos informe o Banco de Dados, o tipo de conexão, se DAO ou ADO, no modo Vinculado ou Desvinculado, ok???
NILTON.VIANNA 09/08/2009 17:05:30
#319375

Ok...
Dim ClienteID As Long
ClienteID = Val(txtClienteID.Text)
If txtNome.Text = RS!Nome Then
RS!Nome = txtNome.Text
MsgBox [Ô]Cliente Já cadastrado[Ô]
Exit Sub
RS.Close

[ô] Estou usando assim, mais só pega o ultimo, tenho que colocar tipo EOF

[ô]Mas acho que tem que ser por CPF, mesmo..
[ô]Vcs tem algum exemplo.

[ô]Grato
[ô]Nilton
TECLA 09/08/2009 18:06:44
#319378
Está faltando você pesquisar na tabela.

Dim ClienteID As Long
ClienteID = Val(txtClienteID.Text)
[txt-color=#df0101]RS.Open [Ô]SELECT <campo> FROM <tabela> WHERE <campo> = <valor>[Ô][/txt-color]
If RS.Eof Then
    MsgBox [Ô]Cliente Já cadastrado[Ô]
    RS.Close
    Exit Sub
End If
RS.Close
DANIKULL 09/08/2009 18:18:46
#319382
NILTON_VIANNA,

Pra funcionar do jeito que você quer tem que ser por 
SELECT
, da forma que você esta fazendo ele sempre vai pegar o ultimo registro, ou o registro que estiver setado no momento.
Pelo que percebi você esta utilizando DAO na conexão com o BD certo???
Entao tenta fazer assim:

With sua tabela
If .EOF = False And .BOF = False Then
.MoveFirst
End If
Do Until .EOF = True
If txtNome.Text = !RS!Nome Then
MsgBox [Ô]Cliente já cadastrdo.[Ô] & vbCrLf & _
[Ô]Favor verifique se este cliente já é cadastrado e tente novamente.[Ô], vbCritical, [Ô]Duplicidade[Ô]
txtNome.setfocus
Exit Sub
Else
.MoveNext
End If
Loop
End With

Copiei de um antigo projeto meu, da época em que comecei com VB6.
Se nao der certo poste novamente ok????
X16X 09/08/2009 18:39:57
#319385
Melhor fazer por CPF mesmo , nao é uma boa saida colocar por nome.

Caso optar por CPF no banco de dados coloca o campo CPF como chave unica , isso serve para caso queira continuar por nome.
Entao nao é necessario dar um select na tabela so pra saber se o usuario existe.


flw's.
NILTON.VIANNA 09/08/2009 21:17:23
#319397
é to apanhando até agora nada,
alguem tem agum exemplo pra me enviar
grato
Nilton
TECLA 09/08/2009 23:07:37
#319409
Citação:

NILTON_VIANNA escreveu:
é to apanhando até agora nada,
alguem tem agum exemplo pra me enviar
grato
Nilton



Poste o seu projeto aqui, fica mais fácil de ajudá-lo.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar