Jump to content
Fórum Script Brasil
  • 0

Dúvida com validação em Base de Dados


pedruhm
 Share

Question

Bom dia Galera !

Estou com uma dúvida em um software que estou desenvolvendo, eu tenho uma base de dados com centenas de funcionários, e cada funcionario tem um número de matricula, eu passo com o leitor de código de barras no cracha do funcionario e quero que ele busque na base de dados para saber se está tudo bem , a minha dúvida é como posso fazer isso ao clicar no botão "Consultar"?

2m6mln8.png

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Tente o cod. abaixo

Voce não informou o banco de dados o ex. está ajustado para banco access.

Private Sub Verif_Se_FuncExiste()
    ' *** habilite a referencia Microsoft ActiveX data objects X.X library
    Dim nConn As New ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim sql As String, seuTextbox As String
    seuTextbox = TextBox1.Text ' altere o nome do controle onde esta os dados

    If seuTextbox = "" Then
        MsgBox "Insira os dados no " & seuTextbox, 64, "Aviso"
        Exit Sub
    End If

    sql = "SELECT * FROM [NomeSuaTabela]" & _
          " WHERE [CampoQquerProcurar] = '" & seuTextbox & "';"

    Set Rs = New ADODB.Recordset

    nPath = "C:\Users\Admin\Desktop\Nome_do_Seu_Banco_de_Dados.mdb" ' altere o diretorio e nome do BD

    nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & nPath & ";"

    nConn.ConnectionString = nConectar
    nConn.Open

    Rs.Open sql, nConn
    If Rs.EOF = False Then
    MsgBox "Funcinario " & seuTextbox & " encontrado!"
    Else
    MsgBox "Nao encontrado!"
    End If
    Set Rs = Nothing
    nConn.Close

End Sub
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...