• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

FaT`

[VB6] Consultas numa BD do Access em SQL

3 mensagens neste tópico

Boas pessoal, eu queria fazer uma consulta a uma base de dados em access através de comandos SQL com a ferramenta Data, tendo posteriormente um DBGrid a mostrar os dados do Data. O que acontece é que não me aparecem dados nenhuns nas consultas que faço, penso que será um problema de sintaxe, apesar de não saber ao certo.

Private Sub CmdSearch_Click()
Dim xNomeFilme, xAno
Dim WhereText


    If TxtNomeFilme.Text <> "" Then
        xNomeFilme = TxtNomeFilme.Text
        WhereText = WhereText & " [Nome Filme].Filmes = " & Chr(34) & xNomeFilme & Chr(34) & " and"
    End If
    
    If TxtAno.Text <> "" Then
        xAno = TxtAno.Text
        WhereText = WhereText & " [Ano] = " & xAno
    End If
    
    
    Data1.RecordSource = "SELECT * FROM Filmes WHERE " & WhereText
End Sub

Nota: chr(34) = " (aspas)

Desde já obrigado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Experimenta por um Data1.Refresh após o .RecordSource

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não te esqueças de ter algures a seguinte instrução

me.data1.databasename=caminho_bd,sem isso ele não faz a minima ideia do que queres consultar

e depois do REcordsource como o Tiago Salgado disso tens de ter a instrução data1.refresh

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora