none
operador faltando na expressão de consulta RRS feed

  • Pergunta

  • podem me ajudar para descobrir o que esta faltando segue o código:

      Dim sql As String
                    sql = "Select Tab_Nota.CodigoNota,Tab_Nota.CodigoServico,Tab_Servico.Servico,Tab_Nota.UNIDADE,Tab_Nota.QUANTIDADE,Tab_Nota.VUNITARIO,Tab_Nota.VTOTAL,Tab_Nota.DATA "
                    sql += "From ( Tab_Nota INNER JOIN "
                    sql += "Tab_Servico  ON Tab_Nota.CodigoServico = Tab_Servico.CodigoServico) "
                    sql += " WHERE CodigoNotaFiscal =" & txtCodigoNotaFiscal.Text.ToString & ""

                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable
                    Dim SomaColuna As Double
                    da.Fill(dt)

    terça-feira, 23 de janeiro de 2018 18:24

Respostas

  • Referente a esta frase "essa mensagem de erro acontece qndo eu chamo o formulário,"

    O que há no evento load do formulário?

    Aparentemente ao carregar o formulário, sua rotina está sendo executada com o textbox vazio.


    MARIANO1776

    • Marcado como Resposta Arlindo António quarta-feira, 24 de janeiro de 2018 11:10
    terça-feira, 23 de janeiro de 2018 20:18

Todas as Respostas

  • O campo txtCodigoNotaFiscal.Text esta vazio... 

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    terça-feira, 23 de janeiro de 2018 18:36
    Moderador
  • Prezado Arlindo.

    Os campos que assinalei em negrito estão corretos?

    Dim sql As String sql = "Select Tab_Nota.CodigoNota,Tab_Nota.CodigoServico,Tab_Servico.Servico,Tab_Nota.UNIDADE,Tab_Nota.QUANTIDADE,Tab_Nota.VUNITARIO,Tab_Nota.VTOTAL,Tab_Nota.DATA " sql += "From ( Tab_Nota INNER JOIN " sql += "Tab_Servico ON Tab_Nota.CodigoServico = Tab_Servico.CodigoServico) " sql += " WHERE CodigoNotaFiscal = " & txtCodigoNotaFiscal.Text Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dt As DataTable = New DataTable Dim SomaColuna As Double da.Fill(dt)



    MARIANO1776

    terça-feira, 23 de janeiro de 2018 18:37
  • sim estão correto, o primeiro CodigoNota, é a minha chave primaria, e CodigoNotaFiscal é o numero que é digitado na hora de cadastar

    a mensagem de erro diz que falta algo nesta linha:

        sql += " WHERE CodigoNotaFiscal =" & txtCodigoNotaFiscal.Text.ToString 


    terça-feira, 23 de janeiro de 2018 19:27
  • sim estão correto, o primeiro CodigoNota, é a minha chave primaria, e CodigoNotaFiscal é o numero que é digitado na hora de cadastar

    a mensagem de erro diz que falta algo nesta linha:

        sql += " WHERE CodigoNotaFiscal =" & txtCodigoNotaFiscal.Text.ToString 


    Sim.. como eu disse, se  txtCodigoNotaFiscal.Text estiver vazio, entao o erro descrito ocorre.

    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    terça-feira, 23 de janeiro de 2018 19:38
    Moderador
  • oi, ele não esta vazio, eu escolho o número da nota fiscal e mando pesquisar

    ele até faz o que desejo, mas essa mensagem de erro acontece qndo eu chamo o formulário,

    depois de aberto ele funciona do jeito certo, o problema é mesmo na hora de chamar o formulário o erro é exibido como a imagem em anexo em cima

    terça-feira, 23 de janeiro de 2018 19:43
  • sim estão correto, o primeiro CodigoNota, é a minha chave primaria, e CodigoNotaFiscal é o numero que é digitado na hora de cadastar

    a mensagem de erro diz que falta algo nesta linha:

        sql += " WHERE CodigoNotaFiscal =" & txtCodigoNotaFiscal.Text.ToString 


    CodigoNotaFiscal é varchar no banco ou inteiro?

    Se a resposta for relevante ou tenha resolvido seu problema, marque como útil/resposta!

    Rafael Almeida
    Microsoft Developer .NET
    Microsoft Certified Professional
    Development Leader at JAMSOFT Informática
    Email: ralms@ralms.net
    Blog -  GitHub  -  LinkedIn -  Twitter

    terça-feira, 23 de janeiro de 2018 19:45
  • Tanta usar isso:

    sql = "Select T.CodigoNota,T.CodigoServico,S.Servico,T.UNIDADE,T.QUANTIDADE,T.VUNITARIO,T.VTOTAL,T.DATA "
    sql += "From Tab_Nota T "
    sql += "INNER JOIN Tab_Servico S "
    sql += "ON (T.CodigoServico = S.CodigoServico) "
    sql += "WHERE T.CodigoNota='" & txtCodigoNotaFiscal.Text.ToString & "'"

    Abraços!


    Se a resposta for relevante ou tenha resolvido seu problema, marque como útil/resposta!

    Rafael Almeida
    Microsoft Developer .NET
    Microsoft Certified Professional
    Development Leader at JAMSOFT Informática
    Email: ralms@ralms.net
    Blog -  GitHub  -  LinkedIn -  Twitter

    terça-feira, 23 de janeiro de 2018 19:50
  • Referente a esta frase "essa mensagem de erro acontece qndo eu chamo o formulário,"

    O que há no evento load do formulário?

    Aparentemente ao carregar o formulário, sua rotina está sendo executada com o textbox vazio.


    MARIANO1776

    • Marcado como Resposta Arlindo António quarta-feira, 24 de janeiro de 2018 11:10
    terça-feira, 23 de janeiro de 2018 20:18
  • oi, ele não esta vazio, eu escolho o número da nota fiscal e mando pesquisar

    ele até faz o que desejo, mas essa mensagem de erro acontece qndo eu chamo o formulário,

    depois de aberto ele funciona do jeito certo, o problema é mesmo na hora de chamar o formulário o erro é exibido como a imagem em anexo em cima

    Se ele nao esta vazio, nao deveria dar o erro. Onde no seu formulario ele é preenchido?

    Poderia fazer o seguinte teste: após sql += " WHERE CodigoNotaFiscal = " & txtCodigoNotaFiscal.Text

    adicione a seguinte linha:

    MessageBox.Show(txtCodigoNotaFiscal.Text)

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    terça-feira, 23 de janeiro de 2018 20:36
    Moderador
  • o erro estava no evento load do formulário Aparentemente ao carregar o formulário, a minha rotina está sendo executada com o textbox vazio., fui la e eliminei e resolveu
    quarta-feira, 24 de janeiro de 2018 11:11