Quantcast
Channel: Windows Forms Data Controls and Databinding forum
Viewing all articles
Browse latest Browse all 2535

Need help i face the issue on left join table Syntax error (missing operator) in query expression.

$
0
0

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





Viewing all articles
Browse latest Browse all 2535

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>