Hi everybody…
I’ve made access database table using Microsoft Access 2007 and exported as aceess2000 .mdb file.
Table name: store
Table fields:
Item ID: AutoNumber
Item Part Number: Text
Item Descriptions: Text
Item Location: Text
Item Quantity: Text
Then I’ve made OleDb connection thorough vb.net 2008
After that I’ve added two type searches exact and general by radio button.
The problem is the search command return an error line “Syntax error (missing operator) in query expression”
Any help for correcting codesCode:Imports System.Data Imports System.Data.OleDb Public Class Form2 Dim frm As New Form1 Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & Application.StartupPath & "\data.mdb" Dim Conn As New OleDbConnection(ConStr) Dim DataSet1 As New DataSet Dim SQLstr As String Dim m As String Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click Static m As Integer = 0 If tbSearch.Text = Trim("") Then Exit Sub If RadExactWord.Checked = True Then ExactSearch() ElseIf RadGeneralSearch.Checked = True Then GeneralSearch() End If Conn.Open() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn) DataAdapter1.Fill(DataSet1, "store") Conn.Close() tbPartNumberResult.DataBindings.Add("Text", DataSet1, "store.Item Part Number") tbDescriptionsResult.DataBindings.Add("Text", DataSet1, "store.Item Descriptions") tbLocationResult.DataBindings.Add("Text", DataSet1, "store.Item Location") tbQTYresult.DataBindings.Add("Text", DataSet1, "store.Item Quantity") DataGridView1.DataSource = DataSet1 DataGridView1.DataMember = "store" If Me.BindingContext(DataSet1, "store").Count = 0 Then MsgBox("No Result, Please Try Again ") Exit Sub End If End Sub Public Sub ExactSearch() If RadItemPartNumber.Checked = True Then SQLstr = "SELECT * FROM store WHERE Item Part Number = '" & tbSearch.Text & "' " ElseIf RadItemDescriptions.Checked = True Then SQLstr = "SELECT * FROM store WHERE Item Descriptions = '" & tbSearch.Text & "' " End If End Sub Public Sub GeneralSearch() If RadItemPartNumber.Checked = True Then SQLstr = "SELECT * FROM store WHERE Item Part Number LIKE '%" & tbSearch.Text & "%'" ElseIf RadItemDescriptions.Checked = True Then SQLstr = "SELECT * FROM store WHERE Item Descriptions LIKE '%" & tbSearch.Text & "%'" End If End Sub Private Sub btnBACK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBACK.Click Me.Close() Form1.Show() End Sub End Class![]()
Regrads![]()




Reply With Quote