operador faltando na expressão de consulta

Question

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)

Answer 1

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".

Answer 2

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

Answer 3

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 

Answer 4

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".

Answer 5

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

Answer 6

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: [e-mail]
Blog -  GitHub  -  LinkedIn -  Twitter

Answer 7

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: [e-mail]
Blog -  GitHub  -  LinkedIn -  Twitter

Answer 8

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

Answer 9

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".

Answer 10

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