Senha E Comparaçao

[Denis_Rave]

quero perguntar duas coisas

1-Como compara um campo do meu form com o q ta na tabela, e ,se for igual dar uma mensagem de erro

2-Como abrir um banco de dados com senha usando Data Control?

vlw........

[Graymalkin]

Para a primeira pergunta:

if text1.text = rs.fields("campo").value then
  msgbox "igual"
else
  msgbox "diferente"
endif

Levando em consideração que seja um campo texto (para valores numéricos talvez seja necessário convertê-los) e que "rs" é um objeto Recordset ou ADODB.Recordset.

Para a segunda pergunta, basta colocar ;pwd=senha na propriedade Connect do Data.

Abraços,

Graymalkin

[Denis_Rave]

tem certeza q o eskema de compara é assim?

porque não ta dando certo.....fika dando sempre q é diferente

[Graymalkin]

Levando em consideração que seja um campo texto (para valores numéricos talvez seja necessário convertê-los) e que "rs" é um objeto Recordset ou ADODB.Recordset.

Por isso que coloquei a observação acima. Qual é o valor que você está tentando comparar (na tabela e na caixa de texto)?

Abraços,

Graymalkin

[Denis_Rave]

não, é texto mesmo cara.......

[Graymalkin]

não, é texto mesmo cara.......

E qual é o texto (na caixa de texto e no campo)? Dê um exemplo do que você está digitando e do que está no campo.

Abraços,

Graymalkin

[Denis_Rave]

tem assim.....eu Digito:

Fernando na caixa de texto

la na tabela Clientes tem o campo "Nome"

e no campo ta salvo Fernando

ai quando eu clicko no botao ele diz q é diferente.....

[Graymalkin]

E o Recordset está realmente situado (apontando para) nesse registro que tem esse nome? Tentou fazer um...

debug.print rs.fields("campo").value

... para ver o conteúdo do campo do registro atualmente selecionado? É bom verificar se é realmente o nome que você está querendo (e se não existe espaços após o nome, por exemplo).

Abraços,

Graymalkin

[Denis_Rave]

ah, o rs precisa estar "parado" neste valor???

porque se for ai é q esta o erro......eu quero q ele busque por toda a tabela

[Graymalkin]

Sim, precisa para que você possa comparar desta maneira. O que você está querendo fazer então é uma busca, que pode ser feita pelo método FindFirst e suas variantes (caso você use DAO) ou pelo método Find (caso você use ADO). Por exemplo:

rs.Find "nome='Fernando'"
if rs.Eof then
  msgbox "Nome não encontrado!"
else
  msgbox "Nome encontrado!"
endif

Com isso o ponteiro passa a ficar apontando para o registro (caso ache-o), ou seja, ele fica "parado" nesse registro.

Abraços,

Graymalkin

[Denis_Rave]

Bom, eu acabei resolvendo de uma otra maneira.....para q verificasse por toda tabela....mais vlw mesmo assim

eu fiz desse jeito

ver = 1
Data1.Recordset.MoveFirst
While frmanimesdb.Data1.Recordset.EOF = False
    If txtnome.Text = frmanimesdb.Data1.Recordset.Fields("Nome").Value Then
       ver = 0
    End If
    frmanimesdb.Data1.Recordset.MoveNext
Wend
If ver <> 0 Then
    Data1.Recordset.Update
    frmanimesdb.Data1.Refresh
Else
    MsgBox "Título já existente. Por favor escolha outro nome.", vbInformation, "Erro"
End If

[Graymalkin]

Sim, mas você pode fazer isso com apenas umas poucas linhas (e muito mais rápido):

frmanimesdb.Data1.Recordset.FindFirst "nome='" & txtnome.Text & "'"
If not frmanimesdb.Data1.Recordset.NoMatch Then 'Se achou
   Data1.Recordset.Update
   frmanimesdb.Data1.Refresh
Else 'Se não achou
   MsgBox "Título já existente. Por favor escolha outro nome.", vbInformation, "Erro"
End If

E ali na condição ("nome='" & txtnome.Text & "'") você pode colocar o seguinte:

"nome LIKE '" & txtnome.Text & "%'" 'Ou um * no lugar de %

Para procurar só pelo começo do nome (ou seja, não precisar digitar o nome completo como está na tabela).

Abraços,

Graymalkin

[Denis_Rave]

ok......obrigado......agora está funcionando perfeitamente

vlw!!!!

[Denis_Rave]

OE, APROVEITANDO ESTE TPC.....COMO FAÇO PARA BUSCAR PRO UMA APOSTROFE (') DENTRO DE UM TEXT BOX COM VARIAS PALAVRAS E SE TIVER DAR MSG??

[Graymalkin]

Use a função InStr() que retorna a posição de uma string dentro de outra. Exemplo:

if instr(1, text1.text, "'")>0 then
  msgbox "Tem um apóstrofo ali!"
else
  msgbox "Não, não tem um apóstrofo ali!"
endif

Abraços,

Graymalkin

[Denis_Rave]

vlw cara.....ta funcionando.......