當前位置:首頁 » 數據倉庫 » vb資料庫例子
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

vb資料庫例子

發布時間: 2022-11-03 14:33:47

㈠ 一個超級簡單的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 連接資料庫 的實例

簡單代碼實現::

<%
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資料庫實例

工程-引用-勾選 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連接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 資料庫實例

用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連接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

㈦ vb 例子

1..

Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循環。
For Chars = 0 To 9 ' 建立 10 次循環。
MyString = MyString & Chars ' 將數字添加到字元串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一個空格。
Next Words

2.
Do...Loop 語句示例
本示例示範如何使用 Do...Loop 語句。內層的 Do...Loop 語句循環到第 10 次時將標志值設置為 False,並用 Exit Do 語句強制退出內層循環。外層循環則在檢查到標志值為 False 時,馬上退出。

Dim Check, Counter
Check = True: Counter = 0 ' 設置變數初始值。
Do ' 外層循環。
Do While Counter < 20 ' 內層循環。
Counter = Counter + 1 ' 計數器加一。
If Counter = 10 Then ' 如果條件成立。
Check = False ' 將標志值設成 False。
Exit Do ' 退出內層循環。
End If
Loop
Loop Until Check = False ' 退出外層循環。

3.
While...Wend 語句示例
本示例使用 While...Wend 語句來增加計數變數的值。如果條件判斷值為 True,則循環內的語句將一直執行下去。

Dim Counter
Counter = 0 ' 設置變數初值。
While Counter < 20 ' 測試計數器的值。
Counter = Counter + 1 ' 將計數器的值加一。
Wend ' 當 Counter > 19 時則循環終止。
Debug.Print Counter ' 在「立即」窗口中顯示數字 20。

Select Case 語句示例
本示例使用 Select Case 語句來判斷變數的值。示例中第二個 Case 子句包含了變數值,故只有此區塊內的語句會被完成到。

Dim Number
Number = 8 ' 設置變數初值。
Select Case Number ' 判斷 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之間,包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一個 Case 子句是本示例中唯一判斷值為 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之間。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值為 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他數值。
Debug.Print "Not between 1 and 10"
End Select

㈧ VB中用data連接資料庫具體方法,給個例子謝謝

使用Data控制項
內在的 Data 控制項通過使用 Microsoft 的 Jet 資料庫引擎來實現數據訪問 –與 Microsoft Access 所用的資料庫引擎相同。這一技術使用戶可以無縫地訪問很多標準的資料庫格式,而且使用戶無需編寫任何代碼就可以創建數據識別應用程序。這種內在的 Data 控制項最適合較小的(桌面)資料庫,諸如 Access 和 ISAM 資料庫。
可以使用這種內在的 Data 控制項創建應用程序,來顯示、編輯和更新來自多種已有的資料庫的信息。這些資料庫包括 Microsoft Access、Btrieve、dBASE、Microsoft FoxPro�⒁約_ Paradox。也可以使用這種控制項如同訪問真正的資料庫一樣來訪問 Microsoft Excel、Lotus 1-2-3、以及標準的 ASCII 文本文件。此外,Data 控制項也可以訪問和操作遠程的開放式資料庫連接 (ODBC) 資料庫,諸如 Microsoft SQL Server 以及 Oracle。
注意 Data 控制項和 Remote Data 控制項兩者都包含在 Visual Basic 中,以提供向後兼容。不過,由於 ActiveX 數據對象 (ADO) 的適應性更廣,因此建議使用 ADO Data 控制項來創建新的資料庫應用程序。詳細信息請參閱「使用 ADO Data 控制項」。
Data 控制項、Remote Data 控制項、以及 ADO Data 控制項在概念上很相似: 三者都是將一個數據源連接到一個數據綁定控制項的「數據控制項」。三者也都共享相同的外觀—一組共四個按扭,使用戶可以直接到達記錄集的開始、記錄集的末尾、以及在記錄集中向前或向後翻卷。
使用 Data 控制項創建一個簡單的資料庫應用程序
要使用 Data 控制項創建一個簡單的資料庫應用程序
在窗體上放置一個 Data 控制項。Data 控制項是一個內在的控制項,因而總是可用的。
單擊並選定這個 Data 控制項,按 F4 鍵顯示「屬性」窗口。
在「屬性」窗口中,將「連接」屬性設置為想要使用的資料庫類型。
在「屬性」窗口中,將「DatabaseName」屬性設置為想要連接的資料庫的文件或目錄名稱。
在「屬性」窗口中,將「記錄源」屬性設置為想要訪問的資料庫表的名稱。
在該窗體上放置一個文本框控制項。
單擊並選定這個 TextBox 控制項,並在其「屬性」窗口中將「數據源」屬性設置為該 Data 控制項。
在這個「屬性」窗口中,將「數據欄位」屬性設置為在該資料庫中想要察看或修改的欄位的名稱。
對其它的每一個想要訪問的欄位,重復第 6、7、8 步。
按 F5 鍵運行這個應用程序。
設置 Data 控制項與數據相關的屬性
下述與數據相關的屬性可以在設計時設置。這個列表給出了設置這些屬性的一種邏輯順序:
注意 資料庫技術是一門復雜的科學,下面的這些建議並不意味著要當作規則來使用。
RecordsetType — RecordsetType 屬性決定記錄集是一個表、一個動態集 (dynaset)、還是一個快照。這個選擇將影響哪些記錄集屬性是可用的。例如,快照類型的記錄集與 dynaset 記錄集相比具有更多的限制。
DefaultType — DefaultType 屬性指定所使用的是 JET 工作空間,還是 ODBCDirect 工作空間。
DefaultCursorType — DefaultCursorType 屬性決定游標的位置。可以使用 ODBC 驅動程序來決定游標的位置,或者指定伺服器或 ODBC 游標。只有當使用 ODBCDirect 工作空間時,DefaultCursorType 屬性才是有效的。
Exclusive — 決定該數據是用於單用戶環境,還是多用戶環境。
Options — 這個屬性決定記錄集的特徵。例如,在一個多用戶環境中,可以設置 Options 屬性來禁止他人所做的更改。
BOFAction、EOFAction — 這兩個屬性決定當這個控制項位於游標的開始或末尾時的行為。可能的選擇包括停留在開始或末尾、移動到第一個或最後一個記錄、或者添加一個新的記錄(只有在末尾時)。

㈨ 如何用VB建立資料庫

1、首先點擊打開主菜單欄中的「外接程序」選項。

㈩ VB與資料庫的連接 示例

open C:"" for input as #1
do while not eof(1)
line input #1,bb
然後自己找條件