Jump to content

Select não assume valor de Data


Recommended Posts

Chamuanza

Um bem Aja a todos

Tenho este Select que não assume o valor da variável DiaSorteio, e não sei mais o que fazer.

Se colocar a data com está no 1º Select funciona.

Com o valor da variável não assume, apresenta a Datagridview1 em branco sem resultado. Estou farto de alterar as plicas antes e dpois e não acerto. Agradeço uma ajuda.

Obrigado desde já


Dim DiaSorteio As Date = DateTimePicker1.Value

        Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Justino\Documents\Visual Studio 2013\Projects\TotoMilhoesNovo\TotoMilhoesNovo\bin\Debug\GuardarResultados.accdb")

        ' Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = #2017-05-19#"

        Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = " & DiaSorteio & ""

       
        Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString)
        Dim MyData As New DataSet
        DataAdapter.Fill(MyData, "NumJogadosEUROMILHOES")


        ' Neste caso utilizei uma datagridview para visualizar os dados
        Me.DataGridView1.DataSource = MyData.Tables("NumJogadosEUROMILHOES")

 

Edited by Chamuanza
Alterar texto
Link to post
Share on other sites
Dim DiaSorteio As Date = DateTimePicker1.Value

Dim sData As String = "#" & DiaSorteio.Date & "#"

'....

Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = '" & sData & "'"

Vê-lá se é isso

Link to post
Share on other sites
Chamuanza

Oi Vikcch Obrigado pela atenção

Testei e apresenta este Erro 

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Tipo de dados incorrecto na expressão de critérios.

Link to post
Share on other sites

e com os cardinais fora própria query?

Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data = #'" & DiaSorteio.Date & "'#"

tambem podes ter problemas relacionados com o data americana e portuguesa

experimenta tambem sem as plicas

devias usar paramentos para fazer a consulta... pesquisa por consulta parametrizada access

Edited by vikcch
Link to post
Share on other sites
Chamuanza

Dá erro na mesma " Additional information: Erro de sintaxe na data na expressão de consulta 'Data = #'2017-05-19''.

No entanto na primeira dica que enviaste embora não resulte o valor final  da variável é sData= #2017-05-19# que por sinal igual ao valor que funciona quando faço o select com ele

É isso que não compreendo

Link to post
Share on other sites
Chamuanza

Oi Vikcch consegui acertar com

  Dim Query As String = "SELECT Data,DiaSemana,Aposta,N1,N2,N3,N4,N5,E1,E2 FROM NumJogadosEUROMILHOES Where Data =" & sData & ""

Obrigado pela atenção

 

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
×
×
  • 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.