Ir ao conteúdo
  • Cadastre-se
Ex_t1n7o

[Resolvido] Acces 2000 e Visual Basic 6 tratar BD

Recommended Posts

Olá Pessoal,

tenho aqui um "colecionador de informações" a partir de um terminal, preciso que ele verifique antes se existe na tabela, aquela conta, para saber se deve entrar e pesquisar o resto. mas o que eu quero é:

algo do tipo:

If <essa string existe na tabela?> Then

Exit if

Else

<entre nessa conta e continue com a gravação>

tentei várias coisas como: Seek, CurrentDb.Execute(instruçãoSQL), DoCmd.FindRecord mas não consegui nada de nada, a ajuda do VB sobre isso é péssima, e cansado de pesquisar na net sem sucesso, vim pedir ajuda ao pessoal, sem muita esperança..

de qualquer forma muito obrigado..!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Já consegui! pode fechar o tópico! =D

---------------------------------------------

Public Function ExisteNaTabela(ag, ct, DB) As Boolean

Dim Consulta As Recordset

Dim ok As Boolean

Set Consulta = DB.OpenRecordset("SELECT * FROM contas WHERE agencia=" + ag + " AND conta=" + ct)

If Not Consulta.EOF Then

ok = True

Else

ok = False

End If

ExisteNaTabela = ok

End Function

----------------------------------------------

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×