USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Consulta em SQL usando DAO
Postada em 5/9/2002 por Henrique      Clique aqui para enviar email para o autor  henrique_vicentin@zipmail.com.br
É muito simples fazer uma consulta em SQL usando DAO.
Neste exemplo vou apenas fazer um resumo, se você não entender e precise deste exemplo, é só pedir pelo meu e-mail: henrique_vicentin@zipmail.com.br

Como exemplo vou usar uma pesquisa em um Banco de dados com a tabela chamada "TabAgenda" e com os campos Codigo, Nome, Telefone

Private sub CmdProcurar_Click()
Dim Procurar As String
Procurar = inputbox("Coloque o nome que deseja procurar",,"Aviso")
Set Tb = Db.OpenRecordSet ("SELECT * FROM TabAgenda WHERE Nome='" & Procurar & "'", DbOpenDyNaset)
If Tb.RecordCount = 0 Then
msgbox"Registro não encontrado", 64,"Aviso"
else
txtcodigo.text = Tb("Codigo")
txtnome.text = tb("Nome")
txttelefone.text = tb("Telefone")
end if
end sub

Se você não entender muito bem,é só pedir um exemplo por e-mail, se quizer um usando o componente FlexGrid é só pedir tb.

Ok


Henrique
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página