Problems On Fill(Kind of Urgent)

[scorpion53061]

With an access database in vb.net.

This works in access:
SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION, JOBTRCUSTNUMBER,
JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY, JOBTRITEM, JOBTRITEMDESC,
JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO, JOBTRJOBNAME, JOBTRJOBTYPE
FROM JOBTRANSACTIONS where (JOBTRITEM = 'TESTING3');

This is not working in vb.net where chitem is the item variable:
sql2 = "SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION, JOBTRCUSTNUMBER,
JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY, JOBTRITEM, JOBTRITEMDESC,
JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO, JOBTRJOBNAME, JOBTRJOBTYPE
FROM JOBTRANSACTIONS where (JOBTRITEM = " & chitem & ")"

I tried plus signs and no parenthesis without success.

The rest of the code is here. The error is on fill and it says that the
required value of a parameter has not been given.
I confirmed that chitem does have a value.

Dstran1.Clear()
Dstran1.AcceptChanges()
sql2 = "SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION,
JOBTRCUSTNUMBER, JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY,
JOBTRITEM, JOBTRITEMDESC, JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO,
JOBTRJOBNAME, JOBTRJOBTYPE FROM JOBTRANSACTIONS where (JOBTRITEM = " &
chitem & ")"
OleDbDataAdapter2 = New OleDb.OleDbDataAdapter(sql2, sConn45)
'Try
OleDbDataAdapter2.Fill(Dstran1.JOBTRANSACTIONS)
'Catch ex As Exception
'MsgBox(ex.ToString)
'Exit Sub
'End Try
Dstran1.AcceptChanges()
dsreport = Dstran1.Copy
reportdataset = "dstran"
If Dstran1.Tables(0).Rows.Count - 1 < 0 Then
MsgBox("No results found.", MsgBoxStyle.Information)
DataGrid1.Visible = False
sConn45.Close()
Button2.Enabled = False
Exit Sub
Else
Button2.Enabled = True
dv = Dstran1.Tables(0).DefaultView
DataGrid1.DataSource = dv
AddSizedColoredColumnsTran()
DataGrid1.Visible = True
DataGrid1.Refresh()
sConn45.Close()
End If

[Zoury]

Hi Scorpion! :O)

This is not working in vb.net where chitem is the item variable:
you didn't tell us what happens. Are you getting an error?

FROM JOBTRANSACTIONS where (JOBTRITEM = " & chitem & ")"
here you seem to have forget the quotes, it think it should be.. I can't be
sure since I don't know what chitem contains...
FROM JOBTRANSACTIONS where (JOBTRITEM = '" & chitem & "')"

--
Best Regards
Yanick Lefebvre

Please posts answers to the group so all can benefit

[Cor]

Hi Scorpion,

I hate SQL but I think I saw it

FROM JOBTRANSACTIONS where (JOBTRITEM = " & chitem & ")"

FROM JOBTRANSACTIONS where (JOBTRITEM = '" & chitem & "')"

You can prably not see it, but there is a single quote after the = and
before the )

But I think that is the problem.

Cor

[Jan]

Hi Scorpion,

Try this (assuming JOBTRITEM is a stringtype field I suggest you add a
single quote before first double quote and another between second double
quote and the bracket) ......(JOBTRITEM = '" & chitem & "')"

Regards,
Jan

"scorpion53061" <sc************@yahoo.com> wrote in message
news:uy**************@tk2msftngp13.phx.gbl...

With an access database in vb.net.

This works in access:
SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION, JOBTRCUSTNUMBER,
JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY, JOBTRITEM, JOBTRITEMDESC, JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO, JOBTRJOBNAME, JOBTRJOBTYPE
FROM JOBTRANSACTIONS where (JOBTRITEM = 'TESTING3');

This is not working in vb.net where chitem is the item variable:
sql2 = "SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION, JOBTRCUSTNUMBER, JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY, JOBTRITEM, JOBTRITEMDESC, JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO, JOBTRJOBNAME, JOBTRJOBTYPE
FROM JOBTRANSACTIONS where (JOBTRITEM = " & chitem & ")"

I tried plus signs and no parenthesis without success.

The rest of the code is here. The error is on fill and it says that the
required value of a parameter has not been given.
I confirmed that chitem does have a value.

Dstran1.Clear()
Dstran1.AcceptChanges()
sql2 = "SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION, JOBTRCUSTNUMBER, JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY,
JOBTRITEM, JOBTRITEMDESC, JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO,
JOBTRJOBNAME, JOBTRJOBTYPE FROM JOBTRANSACTIONS where (JOBTRITEM = " &
chitem & ")"
OleDbDataAdapter2 = New OleDb.OleDbDataAdapter(sql2, sConn45)
'Try
OleDbDataAdapter2.Fill(Dstran1.JOBTRANSACTIONS)
'Catch ex As Exception
'MsgBox(ex.ToString)
'Exit Sub
'End Try
Dstran1.AcceptChanges()
dsreport = Dstran1.Copy
reportdataset = "dstran"
If Dstran1.Tables(0).Rows.Count - 1 < 0 Then
MsgBox("No results found.", MsgBoxStyle.Information)
DataGrid1.Visible = False
sConn45.Close()
Button2.Enabled = False
Exit Sub
Else
Button2.Enabled = True
dv = Dstran1.Tables(0).DefaultView
DataGrid1.DataSource = dv
AddSizedColoredColumnsTran()
DataGrid1.Visible = True
DataGrid1.Refresh()
sConn45.Close()
End If

[scorpion53061]

Thank you all you were exactly right.

"Jan" <ms****@tss.be> wrote in message
news:eJ**************@TK2MSFTNGP09.phx.gbl...

Hi Scorpion,

Try this (assuming JOBTRITEM is a stringtype field I suggest you add a
single quote before first double quote and another between second double
quote and the bracket) ......(JOBTRITEM = '" & chitem & "')"

Regards,
Jan

"scorpion53061" <sc************@yahoo.com> wrote in message
news:uy**************@tk2msftngp13.phx.gbl...

With an access database in vb.net.

This works in access:
SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION, JOBTRCUSTNUMBER,
JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY, JOBTRITEM,

JOBTRITEMDESC,

JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO, JOBTRJOBNAME, JOBTRJOBTYPE
FROM JOBTRANSACTIONS where (JOBTRITEM = 'TESTING3');

This is not working in vb.net where chitem is the item variable:
sql2 = "SELECT JOBTRTID, JOBTRDATE, JOBTRUSER, JOBTRACTION,

JOBTRCUSTNUMBER,

JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY, JOBTRITEM,

JOBTRITEMDESC,

JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO, JOBTRJOBNAME, JOBTRJOBTYPE
FROM JOBTRANSACTIONS where (JOBTRITEM = " & chitem & ")"

I tried plus signs and no parenthesis without success.

The rest of the code is here. The error is on fill and it says that the
required value of a parameter has not been given.
I confirmed that chitem does have a value.

Dstran1.Clear()
Dstran1.AcceptChanges()
sql2 = "SELECT JOBTRTID, JOBTRDATE, JOBTRUSER,

JOBTRACTION,

JOBTRCUSTNUMBER, JOBTRCUSTSHIPTO, JOBTRCUSTNAME, JOBTRCUSTCOMPANY,
JOBTRITEM, JOBTRITEMDESC, JOBTRITEMQTY, JOBTRJOBNUMBER, JOBTRJOBSHIPTO,
JOBTRJOBNAME, JOBTRJOBTYPE FROM JOBTRANSACTIONS where (JOBTRITEM = " &
chitem & ")"
OleDbDataAdapter2 = New OleDb.OleDbDataAdapter(sql2, sConn45)
'Try
OleDbDataAdapter2.Fill(Dstran1.JOBTRANSACTIONS)
'Catch ex As Exception
'MsgBox(ex.ToString)
'Exit Sub
'End Try
Dstran1.AcceptChanges()
dsreport = Dstran1.Copy
reportdataset = "dstran"
If Dstran1.Tables(0).Rows.Count - 1 < 0 Then
MsgBox("No results found.", MsgBoxStyle.Information)
DataGrid1.Visible = False
sConn45.Close()
Button2.Enabled = False
Exit Sub
Else
Button2.Enabled = True
dv = Dstran1.Tables(0).DefaultView
DataGrid1.DataSource = dv
AddSizedColoredColumnsTran()
DataGrid1.Visible = True
DataGrid1.Refresh()
sConn45.Close()
End If