從VB.Net中的數據集到Textbox使用MS-Access

Question

Private Function Gelobee() As DataSet 
    Dim connection As OleDb.OleDbConnection = New OleDbConnection 
    connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=CMP.accdb" 
    connection.Open() 
    Dim da As OleDb.OleDbDataAdapter = New OleDbDataAdapter("SELECT IDDesc FROM [ItemDesc] WHERE " & PartNoTxt.Text & " ORDER BY IDID;", connection) 
    Dim ds As New DataSet 
    da.Fill(ds, "FilteredDesc") 
    Return ds 
    connection.Dispose() 
    connection = Nothing 
    DescTxt.Text = ds.Tables(0).Rows(1).Item(1) 
End Function 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Gelobee() 
End Sub 

我想要在函數Gelobee中查詢結果去DescTxt.Text，當我點擊Button1。當我點擊Button1時，DescTxt中沒有任何內容出現。沒有錯誤，但它不會在文本框中顯示結果。

Answer 1

您的代碼在Return聲明處停止。

變化Gelobee（）這樣的：

Private Function Gelobee() As DataSet 
    ... ' Removed for brevity 

    da.Fill(ds, "FilteredDesc") 
    connection.Dispose() 
    connection = Nothing 
    DescTxt.Text = ds.Tables(0).Rows(1).Item(1) 
    Return ds 
End Function