来自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() 

使用此代码从数据库中检索数据。如有任何疑问，请随时询问。