來自Access MS DB的表查詢

Question

我想從當前月份的Access數據庫中導入記錄，並且需要將記錄顯示在我的datagridview上，表單加載不是按鈕單擊。我的理由是，如果最終用戶打開程序，可能需要一些時間才能加載所有記錄，所以我只想檢索爲當前月份輸入的記錄，顯然是在表單加載時輸入的記錄。我對編碼不熟悉，因此我在這裏要求這裏的人們帶着大量的經驗。

我的連接代碼如下。

Public Sub GetData() 

con.Open() 

Dim dt As New DataTable("tbLMPH") 
Dim rs As New OleDb.OleDbDataAdapter("SELECT * FROM tbLMPH WHERE Year(IDday) = Year(Now()) AND Month(IDday) = Month(Now())", con)                  rs.Fill(dt) 

DataGridView1.DataSource = dt 
DataGridView1.Refresh() 

Label1.Text = dt.Rows.Count 

rs.Dispose() 

con.Close() 

If Val(Label1.Text) = 1 Then 

    Dim i As Integer 
    i = DataGridView1.CurrentRow.Index 

    TextBox2.Text = DataGridView1.Item(1, i).Value 
    TextBox3.Text = DataGridView1.Item(2, i).Value 
    TextBox4.Text = DataGridView1.Item(3, i).Value 
    TextBox5.Text = DataGridView1.Item(4, i).Value 
    TextBox6.Text = DataGridView1.Item(5, i).Value 
    TextBox7.Text = DataGridView1.Item(6, i).Value 

End If 
' Display_Data() 

End Sub 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
Me.TbLMPHTableAdapter.Fill(Me.MaindbDataSet.tbLMPH) 
My.Computer.Audio.Play(My.Resources.jimmy2, AudioPlayMode.Background) 
Display_Data() 
Timer1.Start() 
Label2.ForeColor = Color.White 
Display_Data() 
End Sub 

Answer 1

我只是修改代碼，使用下面的代碼：

Dim dt As New DataTable 
Dim ds as new DataSet 
Dim rs As New OleDb.OleDbDataAdapter("Select * from tbLMPH where IDday='" & TextBox1.Text & "' ", con) 
rs.Fill(dt) 
ds.Fill(rs) 
dt=ds.Tables(0) 

DataGridView1.DataSource = dt 
DataGridView1.Refresh() 

TextBox2.Text=dt.rows(0).Item(1) 
label1.text = dt.Rows.Count() 

使用此代碼從數據庫中檢索數據。如有任何疑問，請隨時詢問。