I am creating a program to tracking my store send out and resend record but i face error on Syntax error (missing operator) in query expression. can someone pls help me take a look.
on my send button
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
Dim cmd As New OleDb.OleDbCommand
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
End If
cmd.Connection = cnn
If Me.txtCID.Tag & "" = "" Then
cmd.CommandText = "INSERT INTO tbl_Info([checkercid],[LineNo],[Date],[Location],[OtherLocation],[PIC],[OtherPIC],[Reason],[Remarks]) " &
"VALUES('" & Me.txtCID.Text & "', '" & Me.txtline.Text & "', '" & Me.DateTimePicker1.Value.ToString("yyyy-MM-dd HH:mm:ss") & "', '" & Me.txtLocation.Text& "', '" & Me.txtOlocation.Text & "','" & Me.txtPIC.Text & "','" & Me.txtotherPIC.Text & "','" & Me.txtReason.Text & "','" & Me.txtRemarks.Text & "')"
End If
cmd.ExecuteNonQuery()
MsgBox("Add Data Successful", MsgBoxStyle.OkOnly, "Message")
RefreshData()
Me.btnClear.PerformClick()
cnn.Close()
My program Refresh Data
Private Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
'open connection
cnn.Open()
End If
Dim da As New OleDb.OleDbDataAdapter("SELECT cid, cbcid as [CBCID], " & _
"CompanyName as [CompanyName], ModelName as [ModelName],CheckerName as [CheckerName], Date as [Date],
Category as [Category], PIC as [PIC], OtherPIC as [OtherPIC], Remarks as [Remarks]" & _
" FROM tbl_checker ORDER BY cid", cnn)
Dim dt As New DataTable
da.Fill(dt)
Me.dgvData.DataSource = dt
Me.dgvData.Columns("cid").Visible = False
cnn.Close()
End Sub
I have create 2 datagridview on my program on first datagridview is show product insert record, second is user tracking product out and resend record
the purpose dgvdata is i crate to let user can select item
Private Sub dgvData_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEnter
'select (item) dgvdata and show detail
If dgvData.SelectedCells.Count > 0 Then
loadTransactions(dgvData("cid", dgvData.CurrentCell.RowIndex).Value)
End If
End Sub
The purpose i create loadTransactions is want let my user can tracking store send out and resend history can help me take a look what is i missing on my code. Thanks alot
i get an error on loadTransactions (Syntax error (missing operator) in query expression.)
Private Sub loadTransactions(ByVal transactionid As Integer)
Dim dt As New DataTable
Using cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb;")
Using cmd As New OleDbCommand("SELECT i.cid as [ID], c.CheckerName as ItemName, " & _
"i.LineNo, i.Date, i.Location, i.OtherLocation, i.PIC, i.OtherPIC, i.Reason, i.Remarks" & _
"FROM tbl_Info i left join tbl_checker c on c.cid = i.checkercid WHERE i.checkercid = @transactionID ORDER
BY i.cid", cnn)
'' "FROM stock S left join checker c on c.cid = S.checkercid WHERE S.checkercid = @transactionID ORDER BY S.cid", cnn)
cmd.Parameters.Add("@transactionID", OleDbType.Integer).Value = transactionid
cnn.Open()
dt.Load(cmd.ExecuteReader)
End Using
End Using
DataGridView1.DataSource = dt
' Me.DataGridView1.Columns("ItemName").HeaderText = "CheckerName"
End Sub