vb.net 未处理 System.Data.OleDb.OleDbException 怎么解决啊

[dd0972]

Public Class Form1


Private Sub Tabpage1_Layout(ByVal sender As Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles Tabpage1.Layout
Me.图书销售管理DataSet.Clear()
Me.OleDbDataAdapter1.Fill(图书销售管理DataSet, "图书基本资料")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.图书基本资料BindingSource.MoveFirst()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.图书基本资料BindingSource.MovePrevious()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.图书基本资料BindingSource.MoveNext()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.图书基本资料BindingSource.MoveLast()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
' ComboBox1.Items.Add("按书名查找")
If ComboBox1.SelectedItem = "按书名查找" Then
TextBox1.Enabled = True
End If
If ComboBox1.SelectedItem = "按作者查找" Then
TextBox1.Enabled = True
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str_select As String = "select * from 图书基本资料"
If ComboBox1.SelectedItem = "按书名查找" Then
str_select = str_select & "where 书名='" & Trim(TextBox1.Text)
End If
If ComboBox1.SelectedItem = "按作者查找" Then
str_select = str_select & "where 作者='" & Trim(TextBox1.Text)
End If
Me.OleDbConnection1.Open()
Me.OleDbSelectCommand1.CommandText = str_select
Me.OleDbSelectCommand1.ExecuteNonQuery()
Me.图书销售管理DataSet.Clear()
Me.OleDbDataAdapter1.Fill(图书销售管理DataSet, "图书基本资料")
Me.OleDbConnection1.Close()
End Sub
End Class






在 Me.OleDbSelectCommand1.ExecuteNonQuery()显示未处理 System.Data.OleDb.OleDbException

怎么弄呐

[dd0972]

求助啊~~

[messi_yang]

你的錯誤的代碼在哪裡啊？

[yanlongwuhui]

SQL语句有问题吧。试试如下：
Dim str_select As String = "select * from 图书基本资料"
If ComboBox1.SelectedItem = "按书名查找" Then
str_select = str_select & " where 书名='" & Trim(TextBox1.Text) &"'"
End If
If ComboBox1.SelectedItem = "按作者查找" Then
str_select = str_select & " where 作者='" & Trim(TextBox1.Text) & "'"
End If

[好吃的松子]

Dim str_select As String = "select * from 图书基本资料"
If ComboBox1.SelectedItem = "按书名查找" Then
str_select = str_select & "where 书名='" & Trim(TextBox1.Text)
End If

注意where前面需要空格，不然就成select * from 图书基本资料where 书名=....了

[dd0972]

谢谢炎龙无悔 jathon啦 ~~ 解决了
哈哈