Jump to content
Sign in to follow this  
Chamuanza

Query sem resposta

Recommended Posts

Chamuanza

Oi pessoal

Tenho uma Form que abre com uma Datagrid com dados de uma tabela, tudo bem

Quero fazer uma pesquisa por data aos dados que se encontram na DataGrid e estou a utilizar este código, mas não obtenho resposta

Private Sub cmdIniciar_Click()


     '   Dim NumeroApostas As Integer

    ' NumeroApostas = Adodc1.Recordset.RecordCount
    
  'Saber se existem apostas para o dia do sorteio
Dim strSQL As String


  

strSQL = "Select Id,Aposta,Data,DiaSemana,Toto1,Toto2,Toto3,Toto4,Toto5,TotoSorte,Joker" & _
                            " From Totoloto2011" & _
                             " WHERE Data = #" & MonthView1.Value & "# "

With Adodc1
                .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Herminio\OriginalHerminio\TotolotoNovo.mdb;"
                .RecordSource = strSQL
                .EOFAction = adDoMoveLast
                .Mode = adModeRead
                .Caption = "Nº Total de Registos: " & CStr(Adodc1.Recordset.RecordCount)
'                .Refresh
End With


             Set DataGrid1.DataSource = Adodc1

              DataGrid1.Refresh
end sub

Nota - O Refresh está desactivado pois dá erro "Erro de sintaxe na clausula FROM"

O que me falta para dar certo, ou não posso fazer a query desta maneira

Obrigado desde já pela atenção

Share this post


Link to post
Share on other sites
MSev

Eu acho que a query ficava bem, mas era desta maneira:

"Select Id,Aposta,Data,DiaSemana,Toto1,Toto2,Toto3,Toto4,Toto5,TotoSorte,Joker From Totoloto2011 WHERE Data = '" + variável + "';"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.