vb資料庫實例
① 求VB連接MDB資料庫的例子
哈哈，這個很簡單的
引用 Microsoft ActiveX Data Objects 2.8 Library
或者加入microsoft ado data control
定義資料庫連接
Dim Cnn As New ADODB.Connection
定義操作記錄
Dim Res As New ADODB.Recordset
開始使用
If Res.State = 1 Then Res.Close
Res.CursorLocation = adUseClient
Res.Open "SELECT * From 發票表", Cnn, adOpenDynamic, adLockReadOnly
刪除用res.Delete
添加用res.AddNew
res.Fields("序號") = Trim(Res.Fields("序號"))
...
res.Update
更新用Res.Update "序號", 111
列：
'寫入產品信息
Sub WriteFP()
'On Error Resume Next
Dim SyBaseRes As New ADODB.Recordset
PB.value = 0
Res.Open "SELECT Count(*) From ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", sqlServer, adOpenDynamic, adLockReadOnly
Text2.Text = "當前共 " & Val(Res.Fields(0)) & "條數據"
PB.Max = Val(Res.Fields(0))
If Res.State = 1 Then Res.Close
Res.Open "SELECT ICSaleEntry.FDetailID AS 序號,ICSaleEntry.FInterID AS 物料編號, t_Item.FName AS 產品名稱,ICSaleEntry.FAuxPrice AS 單價, ICSaleEntry.FAuxQty AS 數量,ICSaleEntry.FAmount AS 原幣, ICSaleEntry.FStdAmount AS 本幣,t_MeasureUnit.FName AS 單位 FROM ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly
Do While Not Res.EOF
If SyBaseRes.State = 1 Then SyBaseRes.Close
SyBaseRes.Open "select * from 物料表 where 序號='" & Res.Fields("序號") & "'", Cnn, adOpenDynamic, adLockOptimistic
If SyBaseRes.EOF Then
Text2.Text = Text2.Text + vbCrLf + "正在添加: " & Trim(Res.Fields("序號"))
SyBaseRes.AddNew
SyBaseRes.Fields("序號") = Trim(Res.Fields("序號"))
SyBaseRes.Fields("產品編號") = Trim(Res.Fields("物料編號"))
SyBaseRes.Fields("產品名稱") = Trim(Res.Fields("產品名稱"))
SyBaseRes.Fields("單價") = Trim(Res.Fields("單價"))
SyBaseRes.Fields("數量") = Trim(Res.Fields("數量"))
SyBaseRes.Fields("原幣") = Trim(Res.Fields("原幣"))
SyBaseRes.Fields("本幣") = Trim(Res.Fields("本幣"))
SyBaseRes.Fields("單位") = Trim(Res.Fields("單位"))
SyBaseRes.Fields("資料庫名") = Trim(Text1.Text)
SyBaseRes.Update
Else
Text2.Text = Text2.Text + vbCrLf + "正在更新: " & Trim(Res.Fields("序號"))
SyBaseRes.Update "序號", Trim(Res.Fields("序號"))
SyBaseRes.Update "產品編號", Trim(Res.Fields("物料編號"))
SyBaseRes.Update "產品名稱", Trim(Res.Fields("產品名稱"))
SyBaseRes.Update "單價", Trim(Res.Fields("單價"))
SyBaseRes.Update "數量", Trim(Res.Fields("數量"))
SyBaseRes.Update "原幣", Trim(Res.Fields("原幣"))
SyBaseRes.Update "本幣", Trim(Res.Fields("本幣"))
SyBaseRes.Update "單位", Trim(Res.Fields("單位"))
SyBaseRes.Update "資料庫名", Trim(Text1.Text)
End If
PB.value = PB.value + 1
Res.MoveNext
DoEvents
Loop
If SyBaseRes.State = 1 Then SyBaseRes.Close
Set SyBaseRes = Nothing
End Sub
網路希望不要用ACCESS用ASA（就是sybase那個太強了）
② VB訪問資料庫（sql sever2000)的實例
1.先在工程---引用裡面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,將其勾選，為寫代碼做准備
2，在窗體上放一個combo1和command1
3，代碼
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Driver={SQL Server};SERVER=資料庫機器ip;DATABASE=student;UID=sa;PWD="
sql = "select sno from std where sn='1111'"
rs.Open sql, conn, 3, 1
While Not rs.EOF
Combo1.AddItem rs("sno")
rs.MoveNext
Wend
Set conn = Nothing
Set rs = Nothing
End Sub
③ vb連接access資料庫實例
工程-引用-勾選 Microsoft Active Data Objects 2.6 Library
代碼部分
dim cn as new adodb.connection
dim rs as adodb.recordset
private sub form_load()
cn.open 「provider=microsoft.jet.oledb.4.0;data source=」 & app.path & 「\123.mdb」
set rs=new adodb.recordset
rs.open「select * from 資料庫欄位名 where 資料庫欄位名=`」 & trim(text1.text) & 「`」,cn
end sub
private sub command_click
if rs.eof=false then msgbox rs(「資料庫欄位名」)
end sub
手機打的可能有錯！
④ 一個超級簡單的vb資料庫
在VB中，訪問資料庫一般有兩種方式。一是非編碼方式，主要通過Data等控制項，可以不需要任何編程，只需簡單設置控制項的一些屬性並結合文本框等普通控制項即可方便地顯示和操作資料庫中的數據。二是通過編寫代碼,即利用數據訪問對象(DAO)來實現。雖然編寫代碼要花費更多的時間與精力，但卻可以實現更靈活更復雜的操作（如圖1）。
首先介紹幾個常用的VB資料庫概念：
表（Table）：即關系資料庫中物理存在的二維表。VB的一個資料庫文件可以包含相關的多個二維表。在成功打開一個資料庫之後，必須打開一個表才能對其中的數據進行操作。
記錄集（RecordSet）：來自表中的記錄或者執行一個查詢而產生的記錄，這些記錄就組成了一個記錄的集合。在VB中資料庫表中的數據不允許直接訪問，而只能通過創建於內存中的這些記錄集進行記錄的瀏覽與操作。
SQL語言：一種資料庫管理中的通用結構化查詢語言。
現在介紹一下VB中的「可視化數據管理器（Visual
Data
Manager）」。可視化數據管理器具有進行資料庫的創建、查看、修改庫結構以及輸入記錄等功能。下面介紹如何利用它建立一個完整的資料庫文件。
一、創建表
1．
從「外接程序」選單中，選擇「可視化數據管理器」，這時出現VisData可視化數據管理器窗口。分別移動滑鼠指針到工具欄上的前三個按鈕,系統會提示要以何種記錄集類型來訪問VB資料庫：一是「表類型記錄集」，二是「動態集類型記錄集」，三是「快照類型記錄集」。我們先選擇「動態集類型記錄集」。
2．
從「可視化數據管理器」的「文件」選單中選擇「新建」，選擇「MicroSoft
Access」類型，再選擇「版本7.0MDB」。
3．
選擇保存庫文件的目錄（設把文件保存在C盤的根目錄中，文件名為Myfile)。
4．
這時出現「資料庫」窗口，此時資料庫已存在，但還不包含任何的表名以及欄位定義等表結構。點擊右鍵，選擇「新表」，添加一個新表，出現「表結構」對話框，在「表名」框中輸入表名（本例表名為Phone）。
5．
單擊「添加欄位」按鈕，顯示「添加欄位」對話框。按要求分別定義「欄位名」、「類型」及「大小」。先輸入第一個欄位，然後按「確定」，反復這一過程，直到輸入全部的欄位（本例欄位分別為「序號」，「Long」，「4」；「姓名」，「text」，「8」；「電話」，「text」,「15」；「地址」，「text」，「30」）。
6．
單擊「關閉」，從「添加欄位」對話框退回到「表結構」窗。點擊「生成新表」，保存表結構。
圖1
VB訪問資料庫的兩種方法
7．
在「資料庫」窗雙擊新建的表名，按「添加」開始向表中添加記錄，完畢後按「更新」。反復這一過程，向表中多增添幾個記錄。
8.在資料庫中再建一個表，表名為Article。表包含欄位為「序號」，「Long」，「4」；「作品」，「text」，「15」(為了簡單起見表中只有兩個欄位)。向表中增加幾條記錄，比如序號1對應有多個作品，序號2也有多個作品。
二、增加索引
右鍵單擊Phone表名，選擇「設計」，在表設計窗口的底部，單擊「添加索引」按鈕，可打開「添加索引到……」對話框。
從「可用欄位」列表中選擇要進行索引的欄位名放到「索引欄位」列表中，根據需要選中「主要的」、「惟一的」、「忽略空值」復選框中的一個或多個的組合，在「名稱」中加入索引名，保存該索引。
三、SQL查詢
在「可視化數據管理器」中打開一個庫文件，在彈出「資料庫」窗口的同時，在其後面會彈出一個「SQL語句」對話框。把其變為當前窗口，可在其中輸入SQL語句，比如：select
phone.姓名,article.作品
from
phone,article
where
phone.序號=article.序號。
然後點擊「執行」按鈕，彈出對話框提問「這是SQL傳遞查詢嗎？」直接回車，選擇默認選項「否」，確認查詢，即可從兩個表中提取滿足條件的記錄信息。還可以點擊「清除」按扭清除框中的查詢語句或按「保存」在資料庫中保存此查詢。值得注意的是，查詢中保存的只是查詢定義語句，而並未物理保存這些被查詢的記錄數據。
⑤ VB 資料庫實例
用ADO法（要先引用）
連接：
Dim cn As ADODB.Connection
Set cn=New ADODB.Connection '上兩句為聲明創建ADO變數（下同）
cn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=X;" 'X為資料庫路徑(加文件名)
cn.Close '關閉資料庫
Set cn=Nothing 『釋放數據
讀取：
Dim rs As ADODB.RecordSet
Set rs=New ADODB.RecordSet
rs.Open "select * from X1", cn,X2,X3 'X1為表名，cn就是上面連接的cn（下同），X2為資料庫游標類型，X3為資料庫鎖方式（讀取方式）
Do While Not rs.EOF
XXXXX '讀取數據至程序的代碼，自編
rs.MoveNext 』移動到下一條記錄
Loop
……
……
…… '關閉…，釋放…
Set rs=Nothing
Set cn=Nothing
剩下的網上搜，大把
⑥ 求VB 用ADODB連接ACCESS資料庫實例
'首先，工具->引用->選中Microsoft ActiveX Data Objects 2.X Library
'必須選中，否則下面代碼不會起作用！（以下鏈接資料庫之方式，不需要使用ADODB控制項，僅需代碼即可）
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Cnt As Integer '這個Cnt是用來表示資料庫數據總量的，對鏈接過程無關
'連接資料庫的代碼段
Conn.CursorLocation = adUseClient '以Conn為鏈接名建立鏈接，這里是設置數據游標（客戶端數據游標），即設定讀取資料庫數據之方式（一行一行地讀）
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"
'自己改動一下上面的路徑和文件名即可，其他的代碼你不理解照粘貼無妨
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "SELECT 鋪名, 上月讀數, 本月讀數, 實用度數, 鋪位數, 首層面積, 非經營層面積, 欠費明細, 欠費金額 FROM data WHERE 首層面積 is not null and 非經營層面積 is not null;", Conn, adOpenKeyset, adLockPessimistic
Cnt = Rs.RecordCount
'關閉資料庫鏈接（一般放到子過程結束處，關閉資料庫鏈接）
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
'添加、修改、刪除、更新數據（都以Conn.Execute後帶SQL語句來實現對資料庫的查詢操作）
'Conn.Execute "update data set 上月讀數 = 本月讀數"
』Rs.MoveNext '數據游標轉到資料庫下一行
'實例：
For i = 1 To Cnt
DoEvents
Conn.Execute "insert into data (ID,鋪名,上月讀數,本月讀數,實用度數,鋪位數) values(" & Rs("ID") & ",'" & Rs("鋪名") & "'," & Rs("上月讀數") & "," & Rs("本月讀數") & "," & Rs("實用度數") & "," & Rs("鋪位數") & ")"
Rs.MoveNext
Next
⑦ 求 vb 連接資料庫 的實例
簡單代碼實現：：
<%
dim conn '定義變數 conn
Set Conn = Server.CreateObject("ADODB.Connection") '建立連接對象
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("庫的名字.mdb") '打開庫
dim rs,sql
set rs=server.CreateObject("adodb.recordset") '建立記錄對象
sql="select * from 表的名字"
rs.open sql,conn,3,2 '打開表
rs.addnew
rs("表中數據類型的名字")=request.Form("表單的名字")
rs("表中數據類型的名字")=request.Form("表單的名字")
rs.update
rs.close
set rs=nothing '關閉表
conn.close
set conn=nothing '關閉庫
%>
蒙狼建站---您互聯網的「誠信」合作夥伴！
⑧ vb連接ACCESS資料庫 並應用 實例
網上可以找到vb做的考試原代碼,很多都acess庫,建議你自己找個看看,你的這個問題實在不知道從那方面回答你.
連接acess最簡單可以用ado控制項.
編碼的話可以用或ado應用等.
隨機出題可以按題號,用隨機函數.
⑨ VB怎麼調用資料庫數據
VB可將Sql結構化查詢語句賦值Ado(ActiveX 數據對象)或ADO Data 控制項，訪問和操作資料庫。
ADO (ActiveX 數據對象)，這項新的數據訪問技術的特性包括：更簡單的對象模型；與其它 Microsoft 和非 Microsoft 的技術更好的集成；為本地和遠程數據數據提供的通用介面；可遠程訪問的和斷開的記錄集；用戶可訪問的數據綁定介面；以及層次結構的記錄集。
ADO Data 控制項， 這是一種新的、OLEDB 識別的數據源控制項，其功能與內部的 Data 控制項和 Remote Data 控制項十分相似，通過這種方式允許用戶用最少的代碼來創建資料庫應用程序。
Visual Basic 6.0 中，已經可以將任何 ADO/OLE DB 數據源綁定到任何 ADO/OLE DB 數據使用者上。在運行時，可以設置控制項的 DataSource 屬性來將控制項動態地綁定到數據源。可以創建用作數據源和數據使用者的類，並且通過新的 BindingsCollection 對象將這些類綁定在一起。可以創建與 ADO 數據控制項相似的、用作數據源的用戶控制項。還可以創建與 DataGrid 控制項相似的、復雜綁定的用戶控制項。
以下是經ADO (ActiveX 數據對象)訪問Access資料庫的實例代碼：
DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名稱fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名稱"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名稱")
rs.MoveNext'打開表
Loop
rs.Close
cnn.Close
以下是使用ADO Data 控制項訪問Access資料庫德實例代碼：
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1
⑩ vb連接ACCESS資料庫實例
對於沒有VB運行庫的機器，必須注冊VB運行庫，程序中的代碼不需要改動。 ----------------------------------- 鏈接資料庫的方法比較多，看你採用什麼方法鏈接了，： 1、用ADO鏈接；2、用Data數據控制項鏈接；3、用ADODB數據控制項鏈接；還有資料庫文件是Access 1997?Access 2000?Access 2003?有沒有加密？等等等等問題，首先確定這些問題，才能..... 下面給你一個用ADO的代碼鏈接的實例：（ACCESS 2003) 首先在工程中點擊【工程】-【引用】，在打開的對話框選擇Microsoft AxtiveX Data Objects 2.8 Library 勾選，然後定義二個對象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是資料庫鏈接對象，rs是數據記錄集對象 那麼，下面就是利用SQL語句鏈接資料庫了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 資料庫中的表" rs.Open strSQL, conn, 3, 3 至此資料庫已經鏈接成功，並且已經載入了記錄集，下面你就可以進行數據操作了，注意，在資料庫操作完成後，千萬別忘記關閉記錄集和資料庫鏈接對象： rs.Close conn.Close