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。