如何通过vb2010编写一个程序,要求读取数据库并实时显示 30

有一个名为money.mdb的access2003数据库,包含有一个表,名为money,此数据库每分钟自动增加一条记录。现在我想用vb2010编写一个程序,要求程序自动读... 有一个名为money.mdb的access2003数据库,包含有一个表,名为money,此数据库每分钟自动增加一条记录。现在我想用vb2010编写一个程序,要求程序自动读取最新一条记录,并显示到textbox1控件上面。如何实现,请高手赐教,最好有代码。本人超级菜鸟,谢过先。 展开
 我来答
圣鸾OJ
2015-10-06 · TA获得超过1629个赞
知道小有建树答主
回答量:1136
采纳率:96%
帮助的人:112万
展开全部
此数据库每分钟增加一条记录,这个不用管对吧,另外数据库增加新的记录一般会有id列这样的唯一标识列,每增加一条记录id就增加,如果说读取最新的一条记录,也就是读取id列值最大的记录。
详细说明及代码一会补充
*一个Button按钮,一个textbox,数据库放在vb2010编辑器的debug文件夹下。

Imports System.Data.OleDb'接口
Public Class Form1
Dim txt As String
Dim sql As String
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=money.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = "select top 1 * from 姓名 order by id desc" '以id倒序排列,并显示第一条记录
da = New OleDbDataAdapter(sql, conn) '通过dataDapter适配器,连接数据库
da.Fill(ds, "names") '将结果给dataSet内存中
For i = 0 To ds.Tables(0).Columns.Count - 1
txt = txt & " " & ds.Tables(0).Rows(0)(i).ToString() '通过循环将表中的第一条记录连接起来,以三个空格隔开
Next
TextBox1.Text = txt
dropDb()
End Sub
Sub dropDb() '释放对象
da = Nothing
ds = Nothing
conn = Nothing
End Sub
Sub cc()

End Sub
End Class
师太早师太好
2013-08-31 · 超过14用户采纳过TA的回答
知道答主
回答量:37
采纳率:0%
帮助的人:13.4万
展开全部
  1. 此数据库每分钟增加一条记录,这个不用管对吧,另外数据库增加新的记录一般会有id列这样的唯一标识列,每增加一条记录id就增加,如果说读取最新的一条记录,也就是读取id列值最大的记录。

  2. 详细说明及代码一会补充

      *一个Button按钮,一个textbox,数据库放在vb2010编辑器的debug文件夹下。

     

Imports System.Data.OleDb'接口
Public Class Form1
    Dim txt As String
    Dim sql As String
    Dim da As OleDbDataAdapter
    Dim ds As New DataSet
    Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=money.mdb")
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sql = "select top 1 * from 姓名 order by id desc" '以id倒序排列,并显示第一条记录
        da = New OleDbDataAdapter(sql, conn) '通过dataDapter适配器,连接数据库
        da.Fill(ds, "names") '将结果给dataSet内存中
        For i = 0 To ds.Tables(0).Columns.Count - 1
            txt = txt & "   " & ds.Tables(0).Rows(0)(i).ToString() '通过循环将表中的第一条记录连接起来,以三个空格隔开
        Next
        TextBox1.Text = txt
        dropDb()
    End Sub

    Sub dropDb() '释放对象
        da = Nothing
        ds = Nothing
        conn = Nothing
    End Sub
    Sub cc()
      
    End Sub
End Class

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式