来自Access MS DB的表查询

时间:2015-07-21 11:07:26

标签: vb.net ms-access

我正在尝试从当前月份的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

1 个答案:

答案 0 :(得分:0)

我只是修改你的代码,使用以下代码:

var myImage = UIImage(named: "previous");
UIBarButtonItem.appearance().setBackButtonBackgroundImage(myImage, forState: .Normal, barMetrics: .Default);
let backItem = UIBarButtonItem(title: "", style: .Plain, target: nil, action: nil)
navigationItem.backBarButtonItem = backItem

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