|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Consulta em SQL usando DAO
|
 |
|
|
|
Postada em 5/9/2002 por Henrique
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
|
|
|
|
|
