none
selecet 資料庫的不明問題 RRS feed

  • 問題

  • 各位大大好,我遇到了一個不明的問題,就是我在select 資料庫的時後,不知道出了問題,一直出現錯誤,我把程式碼貼上來請大大們幫我看看那出錯了,謝謝。

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim oledbl1 As New OleDbConnection

            oledbl1.ConnectionString = "provider = microsoft.jet.oledb.4.0; data source= c:\ymac.mdb"

            oledbl1.Open()

            Dim cmd As New OleDbCommand

            cmd.Connection = oledbl1

            cmd.CommandText = "select 規格 from A4"

            Dim table As New DataTable

            Dim adapter As New OleDbDataAdapter(cmd)

            adapter.Fill(table)

            ComboBox1.DisplayMember = "規格"

            ComboBox1.ValueMember = "規格"

            ComboBox1.Text = vbNullString

            ComboBox1.DataSource = table

            oledbl1.Close()

        End Sub

     

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            GroupBox1.Enabled = True

            Dim o As Integer

            Dim p As Integer

            Dim q As Integer

            Dim r As Integer

            Dim s As Integer

            Int32.TryParse(TextBox1.Text, o)

            Int32.TryParse(TextBox2.Text, p)

            Int32.TryParse(TextBox3.Text, q)

            Int32.TryParse(TextBox4.Text, r)

            Int32.TryParse(TextBox5.Text, s)

            Dim oledbl As New OleDbConnection

            Dim oledataset1 As New DataSet

            oledbl.ConnectionString = "Provider=microsoft.jet.oledb.4.0;Data Source=c:\ymac.mdb"

            oledbl.Open()

    If ConnectionState.Open Then

    Dim oledataAdapter As OleDbDataAdapter = New OleDbDataAdapter("select 書名,格號,存放位置---,規格,數量,編碼 from A4 WHERE 規格 = '" + ComboBox1.Text + "' ORDER BY 書名 DESC", oledbl)

    oledataAdapter.Fill(oledataset1, "A4")  ß---------- 到這裡就出現錯誤 --- 無值提供給一或多個必要參數。

    DataGridView1.DataSource = oledataset1.Tables("A4")

    End If

     

    2010年7月23日 上午 05:21

解答

  • Dim oledataAdapter As OleDbDataAdapter = New OleDbDataAdapter("select 書名,格號,[存放位置---行],規格,數量,編碼 from A4 WHERE 規格 = '" + ComboBox1.Text + "' ORDER BY 書名 DESC", oledbl)
    • 已標示為解答 賀小美 2010年7月23日 上午 06:17
    2010年7月23日 上午 05:32
  • HI:

    如阿尼大大所說的,{存放位置"-"櫃"-"列"-"行}

    不能有 " - " 這樣的符號出現,妳可以改 "_" 這樣或是其它的。

    記得資料庫裡的符號也要一起改哦。

    • 已標示為解答 賀小美 2010年7月23日 上午 06:17
    2010年7月23日 上午 05:41

所有回覆