2012-10-17 38 views
0

我想弄清楚如何基於按鈕單擊顯示訪問數據庫中的某些數據。例如,如果我點擊了「庫存」按鈕,那麼它將顯示庫存中物料缺貨的項目。我可以打開連接並顯示查詢信息,但這是一個很長的LINQ查詢,我不確定它來自哪裏。有關如何顯示數據庫信息的任何建議?即客戶信息,庫存產品等..在列表框中顯示數據庫信息

Option Strict On 

Imports System.Data.OleDb 

Public Class frmMicroland 

Dim con As New OleDbConnection 

Private Sub btnStockItems_Click(sender As System.Object, e As System.EventArgs) Handles btnStockItems.Click 

    Dim query1 = From anyOrder In MICROLANDDataSet.Orders 
       Join itsStockItem In MICROLANDDataSet.Inventory 
       On anyOrder.itemID Equals itsStockItem.itemID 
       Let orderQuantity = anyOrder.quantity 
       Select itsStockItem.quantity, itsStockItem.description, anyOrder.itemID 
       Order By quantity, itemID 


    ''Test connection to make sure it opens first 
    Try 
     con = New OleDb.OleDbConnection("provider= microsoft.ace.oledb.12.0;Data Source = C:\Users\HPG62-220US\Documents\Visual Studio 2010\Projects\Asignment 9\Asignment 9\bin\Debug\MICROLAND.accdb; Persist Security Info=False;") 
     Try 
      Call con.Open() 
     Catch ex As Exception 
      MessageBox.Show("Could not connect") 
     End Try 

     If con.State = ConnectionState.Open Then 
      MessageBox.Show("Connection is open") 
     End If 
    Catch ex As Exception 
    End Try 

    lstOutput.Items.Add("Here are the items that are out of") 
    lstOutput.Items.Add("inventory or must be reordered.") 
    lstOutput.Items.Add("") 
    lstOutput.Items.Add("The numbers shown give the") 
    lstOutput.Items.Add("minimum reorder quantity required.") 
    lstOutput.Items.Add("") 
    lstOutput.Items.Add(query1) 
    con.Close() 
End Sub 

Private Sub btnTodaysOrders_Click(sender As System.Object, e As System.EventArgs) Handles btnTodaysOrders.Click 

End Sub 
End Class 
+0

只是改變了格式...這是正確的嗎? – compucrazy

回答

0

有一些不同的東西會在這裏......

首先,你需要聲明你btnStockItems_Click過程外,可以存儲變量返回的數據集。 sometihng像:

Dim con As New OleDbConnection 
Dim ReturnedData as Datatable 

然後在你的btnStockItems_Click過程中,您需要填充該數據表:

ReturnedData = query1.CopyToDataTable 

現在,你必須在每個按鈕的點擊來使用這些數據。

我看到的下一個問題是,它似乎沒有拉入正確的數據...... 例如,您從未在您的查詢1中拖動過訂單日期,但您希望知道今天的訂單。

假設你固定的,它被稱爲,說「訂購日期」在QUERY1,你可以做什麼,然後是從ReturnedData LINQ查詢填充您的ListView線沿線的數據表的內容:

From rw in ReturnedData where OrderDate = xxx select rw.item("itemID").tostring 

...我在沒有IDE的情況下這樣做,所以拼寫可能會關閉,但我希望這可以讓你知道去哪裏...

相關問題