vb中如何定时读取数据库数据库数据库数据

Ⅰ VB读取数据库方法

可以用ADODB，先定义

Dim cnn
As
New
ADODB.Connection
Dim rs
As
New
ADODB.Recordset

这两个cnn用来连接数据库rs用来读取数据库中的值，然后用循环遍历rs将值ADD到listview里面

修改和保存可以做成同一个按钮保存就是遍历listview将数据UPDATE到数据库里面就行！

Ⅱ VB如何从数据库读取指定数据

你加载两个TEXTBOX,一个ADODC，连接上数据库后，用条件法搜索指定的内容。
Adodc1.RecordSource
=
"select
*
from
表
where
"
&
Text1.Text
&
"=
'"
&
Text2.Text
&
"'"
Adodc1.Refresh
主要是设定条件值

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

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

Ⅳ VB中如何每读取数据库中的一条记录调用一次过程

public sub getRecord()
while not rs.eof
call test'每读取一个记录,调用 test 过程
rs.movenext
wend
end sub

public sub test()
msgobx "haha~~~"
end sub

'当然,前面还是要定义的,因为时间关系我就不写了!呵呵

Ⅳ VB如何读取Access数据库数据进行相应的计算~~~急急急急急急！！！！！！！！！

Set Rs=Conn.Execute('select 字段名 from 表名 where 条件')
if rs.recordcount>0 then
dim data_value as double
rs.movefirst
data_value = val(rs.field("data"))
'下面自己对data_value进行计算即可
end if

Ⅵ VB 关于读取数据库数据

读数据库根本不是这样读，这是概念上的错误，完全的错误。

Ⅶ vb如何读取数据库中的数据

什么错呢？可否写出错误讯息！
* 有点须注意的是“第一笔”，“最后比笔”或“上一笔”须写在个别的CommandButton中。

-------------------------------------------------
'下面两行写在General（一般区域内）里面（程式最上面）
Dim sql As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

'在Load区域内写：
Private Sub Form_Load()
On Error Resume Next
rs.MoveFirst
Label1.Caption=Rs("编号") & Rs("题目")
End Sub

Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" ’注意开关引号和分号
sql = "Select * From 单选题" ' 单选题不放[]
rs.CursorLocation = adUseClient '加上这行鼠标位置功能
Rs.Open sql, Conn, adOpenKeyset, adLockPessimistic ’

Rs.MoveNext '下一笔资料
If Rs.BOF = False And Rs.EOF = False Then
Label1.Caption = Rs("编号") & Rs("题目")
End If

If Rs.EOF = True Then ‘若超过最后一笔资料就返回最后一笔记录。
Rs.MoveLast
End If
End Sub

-----------------------------------------------------
说明：
* EOF为 "End Of File"
* BOF为 "Begining Of File"
比如：Rs.EOF=True 意思为超过最后一笔记录。
Rs.BOF=True 意思为超过第一笔记录。

* 其他移动记录方法：
rs.MoveLast ‘最后一笔记录
rs.MoveFirst ‘第一笔记录

Rs.MovePrevious '上一笔资料
If Rs.BOF = False And Rs.EOF = False Then
Label1.Caption = Rs("编号") & Rs("题目")
End If

If Rs.BOF = True Then ‘若超过第一笔资料就返回第一笔记录。
Rs.MoveFirst
End If

Ⅷ VB怎样读取数据库并显示出来

VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开"工程-引用",选择其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以):
ACCESS数据库名为"学生.mdb"其中有张数据库表名为"表",下面就介绍如何使用代码进行连接到数据库"学生",代码如下:
Function Connection() As String
'数据库的连接字符设置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\学生.mdb"
End Function
数据库"学生.mdb"在当前目录下,故使用APP.Path
Private Sub Form_Load()
Dim mr As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim Sql As String
Sql="select * from 表"
cnn.Open Connection '使用cnn对象打开数据库连接
mr.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'打开数据库记录
If mr.eof then
msgbox "数据库表为空!"
else
msgbox "数据库表不为空!"
end if
set mr=nothing
'关闭记录对象
set cnn=nothing
'关闭连接对象
End Sub
OK,程序到此,已经能成功地访问数据库了,并能打开数据库中的表

Ⅸ vb如何获取数据库的数据，并修改

VB可通过结构化查询语言(SQL)访问数据库。
下面帮你写一个简单的过程,将学号以参数传给该过程:
Private Sub editmark(num as Integer)
'声明一个记录集
Dim rs As New ADODB.Recordset
'定义一个SQL查询串
SQLStr = "select * from student where id=" & num
'执行查询
rs.Open SQLStr, Conn, 3, 2
If Not rs.EOF Then
rs("mark")=rs("mark")-10
end if
'更新数据库
rs.update
End Sub
--------------------------------------------------------------
补充:
1、对于Conn提问者肯定明白，因为提问者已经说明连接部分可以忽略；
2、对于rs("mark")=rs("mark")-10 是可行的，因为通过过程参数的传递记录已经定位在某条记录上，还考虑什么转移；
3、我们回答提问者的问题应尽量简单可行，说明问题即可，无需长篇大论让提问者一头雾水，长篇大论就是“敬业”吗？
--------------------------------------------------------------
最后补充：
没有关系，我们是在讨论问题嘛！

其实,对于“vb操作数据库”我相信不是我们在这里举一个简单的例子能说透的。我只是想通过这个简单的例子（越简单越易让提问者搞懂），告诉提问者用SQL可以访问并操作数据库，至于具体许多细节需要提问者熟悉一下SQL和VB提供的ADO，我想这也是提问者的真实意图。
另外，关于rs("mark")=rs("mark")-10在这个例子中肯定是可行的,因为学生的id肯定是唯一的（应该是数据表student的主键）,不会有重复的id。