vb資料庫編程教程

① 用VB做一個資料庫該怎麼做給點思路 或者從哪下手

大致有以下幾步:讀取文件 -- 格式化數據 -- 關閉文件 -- 使用數據如果數據量較大,需要進行篩選,且存放數據的源文件可能不定時變更,那麼我們可以用一個臨時文件來存放有用的數據,這樣可大大提高程序的野塵效率.要 [格式化數據]時,我們首先要進行篩選,然後還得進行分類,這樣文件中的字元串才能被轉換成有用的信息來供程序使用.這樣一來,不用說,處理速度將大大減慢,而且就算你設計的數據格式比較科學,當數據量非常大時,文件的容量也會變的讓普通計算機無法承受. 相對文本文件來說資料庫的使用也大致分為以下幾步:打開資料庫 -- 查找數據 -- 使用數據 -- 關閉資料庫從中可以看出,裡面少了一步格式化數據,因為資料庫本身在存儲數據時,它就是按照一定的格式來進行存儲的. 其次是,資料庫與文本文件返回數據的方法不同.如果把文本文件比作一個Textbox 的話,那麼資料庫更像是一個ListBox.使用文本文件時我們需要從整個Textbox中取出有用的信息,並進行處理,而Listbox則可以根據需要返回特定的某一項.由於VB本身並不帶有可以訪問資料庫的類,所以我們需要引用一個包含能訪問資料庫的類來使用資料庫.這里我們採用ADODB,相比DAO和能訪問資料庫的API來說,它比DAO更靈活,更強大;而比起API,它更簡單易用,更適合初學者.而Access資料庫比起sql,也相對簡單了很多,且能夠滿足中小型應用程序的需要,所以我們在使用資料庫時,選擇了Access.就像使用文本文件來存儲數據一樣,我們需要先設計好數據結構,只不過在設計Access資料庫的結構時,我們需要用到其它的程序來進行詳細的規劃.建議採用的程序是office中的Access或VB自帶的VISDATA.當資料庫設計好了以後,我們可以開始"資料庫編程"了肢汪.首先,我們需要引用ADO.具體的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",這里的"*.*"是指的時ADO的版本號,一般來說,應用程序或ActiveX控制項都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識別舊版本Access的同時,也能識別較新版本的Access.然後我們需要在程序中創建一個對象.就好比我們在窗體上添加一個FileBox才能看到文件名一樣,只有創建了ADO對象,我們才能夠訪問資料庫.常用的對象有兩個,Connection和Recordset.創建這兩個對象的具體方法是:1.在引用後,使用New關鍵字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset2.在沒引用時,用CreateObject創建對象: Dim Conn,Reco Set Conn = CreateObject("ADODB.Connection") Set Reco = CreateObject("ADODB.Recordset")創建了對象之後,下一步我們要做的就是打開資料庫了.先看下面的代碼,可以成功的打開資料庫. Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb" 這句代碼打開了D盤中的Main.mdb這個資料庫. Connection.Open方法的第一個參數是連接代碼,它將傳遞給系統的資料庫引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了資料庫的類型.不同的資料庫可能會不同.後半句"Source=d:\main.mdb"它表示了資料庫所在的絕對路徑.打開資料庫之後,還要打開表.假如資料庫中有一個表,表名為"Users",欄位有兩個,一個為用戶名,一個為密碼.那麼看以下代碼.1.想返回"Users"中,[用戶名]為"去年煙花"的[密碼] Recordset.open "Select 密碼 From Users Where 用戶名='去年煙花'",Connection,1,1 之後我們就可以把用戶輸入的密碼進頌飢禪行比較,看是否允許登錄. If Recordset.eof and Recordset.bof then Msgbox "用戶不存在!",16 Else If PassWord =Recordset("密碼").value then msgbox "登錄成功!",64 Else msgbox "密碼錯誤!",32 End If End If Recordset.Close2.假設Admin已經成功登錄系統,我們想把所有的用戶名和密碼都顯示出來 Recordset.open "Select * From Users",Connection,1,1 這時,表已經被打開,我們就用以下代碼把它顯示出來. Do whlie Not Recordset.eof Print "用戶名: " & Recordset("用戶名").value & "密碼: " & Recordset("密碼").value Recordset.MoveNext Loop Recordset.Close由以上代碼示例可以看出,打開表時,可以只打開其中的一個欄位,也可以打開所有.第一個參數是SQL語句.Select [欄位名] From 表名 [Where 條件]這里的條件可以省略.且欄位名也可以用"*"來代替所有欄位.需要注意的是,如果你用(1)中的方法打開,那麼(2)後面顯示的代碼就不能再用在(1)中.因為(1)里並沒有打開[用戶名]欄位,所以這一句Recordset("密碼")就沒有值存在,還有可能出錯.後面的條件,可以用"="、">"、"<"等運算符.比如 "Where ID > 32".(這里假設[ID]為數字型.) 這是打開的部分.第二個很重要的部分就是查詢記錄.資料庫它並不是把所有記錄全部放到一個變數中備用的.而是以"當前記錄"的形式來返回一個值.所以我們想從中找到有用的信息,就必須要對信息進行定位/篩選.定位: 移動到下一條 Recordset.MoveNext 移動到上一條 Recordset.MovePrevious 移動到最後一條 Recordset.MoveLast 移動到第一條 Recordset.MoveFrist 移動到某一條 Recordset.Move Number篩選: Recordset.Find "條件"如:[用方法(2)打開表之後] Private Sub Command1_Click() Recordset.Find "用戶名=" & "text1.text" If Recordset.Eof <> True Then Msgbox "該用戶的密碼是:" & Recordset("密碼").value,64 Else Msgbox "未找到該用戶的資料!",16 End If End SubMoveNext 只有當Eof不為True時,才可用,否則發生錯誤.而MovePrevious剛是Bof不為True時.... 而只要Eof 和 Bof中有一個不為真時,也就是說只要有一條記錄時,它就可以使用. Find 方法中的條件和Open時的第一個參數中的條件表述方法是完全一致的.當在已打開的記錄集中,找不到該記錄時,Eof為True.找到則當前的值就是符合條件的記錄. 第三個部分就是添加/修改記錄. 修改記錄很簡單,先按以上的方法找到相關記錄之後,給記錄賦值就可以了. 比如:[(修改密碼)按方法(1)打開表之後] Recordset("密碼").value = "123456" Recordset.Updata 需要注意的就是,在修改完成後,要調用Updata方法,這樣修改才能生效.而添加記錄則可以用以下代碼來實現: Recordset.addnew Recordset("用戶名").value = "Admin" Recordset("密碼").value = "Admin" Recordset.Updata這里,先要調用Addnew方法,增加一條新記錄,然後對這個新記錄中的各欄位賦值,最後再調用Updata方法.到這里就差不多了,最後說一下上面提到的幾個方法.Recordset.Open SQL語句,數據源,游標類型,打開方法SQL語句不用說了,就是Select那啥的,目的就是按要求從表中返回數據 數據源就是一個打開之後的Connection對象. 去他媽的游標類型,填1就可以了 [偷笑ing] 打開方法對應了幾個常數,具體哪幾個可以從對象瀏覽器里看. 對應數值的意義: 1 只讀 2 獨占 3 可寫 4 自已可寫,別人可讀Connection.open 連接代碼,伺服器用戶名,密碼 這里的連接代碼就不在多說了,伺服器用戶名,密碼只有在連接遠程資料庫時才用到.

② 如何用vb建立一個access資料庫

vb只是一個編程語言，並不能建立資料庫，建立access資料庫要完全在access中進行。

前提條件：必須安裝微軟access資料庫。

步驟：

1、找好要存放資料庫的路徑，如C盤data路徑；

2、路徑下空白處點右鍵，新建-Microsoft Access資料庫，如圖：

4、雙擊access文件，在里邊創建所要的表，函數等等即可。

③ VB開發資料庫應用程序的步驟和方法

1.設計好資料庫表
2.設計好程序功能，也就是你需要對你程序要實現的功能有個很好的了解，不能說邊開發邊想，這種方法並不適合大多數人
3.將代碼模塊化，比如：連接數據的代碼可以放在一個模塊中，資料庫操作（查詢/刪除等等）放在另一個模塊中，界面的基本操作可以放在另一個模塊中，這樣做的好處在於好維護代碼以及後期代碼的升級等等，當然不是必須的
4.界面的設計 ，包括各個控制項的布局等等，界面設計像VB這種可視化編程的，能減少控制項直接拖拉使用的最好減少，更多的是通過編碼來實現，其中對於一些特殊的控制項可以通過自定義用戶控制項
===========================
基本來說一個連接資料庫的桌面軟體開發，在開發前，你需要明白自己要做什麼，這個軟體要為別恩做些什麼，等想好了再去做，做好前期設計是必須的，編碼並不是主要的，只是一些苦力活而已
最後小AD下,思想源地能為你提供最好的設計思路和實現方案，只要你需要可以M我們

④ 如何在VB中操作資料庫

要查找資料庫信息，關鍵是要解決鏈接資料庫的問題，下面簡述Vb如何SQL資料庫：有兩種方法可以實現，一種是通過ODBC數據源的配置進行連接，一種是通過純代碼編輯進行連接，下面我們就詳細介紹一下這兩種連接方法。ODBC數據源VB連接SQL資料庫一、配置ODBC數據源1、在控制面板中，雙擊管理工具，然後打開ODBC數據源管理器。2、在「系統DSN」選項卡中，單擊「添加」按鈕，打開「創建新數據源」對話框，在「名稱」列表框中選擇「SQLServer」。選好單擊完成3、在打開「建立新的數據源到SQLServer」對話框，在「名稱」文本框輸入新數據源的名稱，描述數據源按你理解的方式來寫(隨意)。「伺服器」就選擇你要連接到的伺服器。4、選擇使用用戶輸入登錄的ID和密碼的SQL驗證。選連接SQL默認設置5、再下一步下一步，完成。測試數據源看連接是否成功就行了。成功後按確定。二、VB中設置連接1、添加部件MircrosoftADODataControl6.0(OLEDB),把部件拖到窗體。2、對ADO部件點右鍵選屬性，選擇使用連接字元串，按生成。3、選擇按下一步4、1）輸入伺服器名稱2）使用指定的伺服器信息3）在伺服器上選擇資料庫這時就選擇你在SQLServer建好的資料庫就行了5、測試連接可以看到連接是否成功！通過代碼VB連接SQL資料庫PublicconnAsNewADODB.ConnectionPublicrsAsNewADODB.(ByValCipAsString)=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip'伺服器的名字conn.Properties("initialcatalog").Value="zqoa"'庫名'conn.Properties("integratedsecurity").Value="SSPI"'登陸類型conn.Properties("userid").Value="sa"conn.Properties("password").Value="sa"conn.OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan'tconnect"CallMsgBox(mag,vbOKOnly,"Error:Dataconnect")addFlag=()OnErrorResumeNextIfconn.StateadStateClosedThenconn.CloseSetconn=(ByValstrsqlAsString)AsBoolean'連接資料庫記錄集=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlEndWithaddFlag=TrueopenRs=TrueEnd'ExitFunctionstrerrmag:mag="datanotconnect"CallMsgBox(mag,vbOKOnly,"error:connect")openRs=FalseEnd'()OnErrorResumeNextIfrs.StateadStateClosedThenrs.CloneSetrs=NothingEndSub

⑤ VB怎樣寫資料庫

先建好資料庫，然後用ADO的方式連接資料庫，然後先ADD，添加記錄，再用UPdata方式將數據寫入資料庫即可。
例：
Dim Con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String

Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;Persist Security Info=False " '打開資料庫
Set rs = New ADODB.Recordset
rs.Open "Select * From 表 ", Con, adOpenDynamic, adLockOptimistic '打開資料庫里的表
rs.add '添加記錄
rs.name = "王五一" '寫記錄
rs.update '寫入數據

⑥ VB創建資料庫表

一、 創建資料庫：

在DAO中用CreatDataBase方法可以根據用戶需求動態的創建資料庫。這一點在程序中是非常有用的。用戶可以根據要求實時建立資料庫。建立過程如下：

Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "資料庫名稱.mdb" ，dbLangGeneral
Msgbox "資料庫建立完畢"
Exit Sub
Err100:
MsgBox "不能建立資料庫! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

這樣，資料庫便在當前默認的路徑下建立了。

二、 創建表與欄位：

建立資料庫後，則需要在該資料庫中建立表，這要用到TableDef 對象。先定義一個TableDef類型的對象，然後用TableDef集合中Append方法將之追加到資料庫當中去。並且同時定義一個Field對象，用CreatFiele的方法創建一個Field對象，向表中添加欄位。例如:

Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\資料庫名稱.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "欄位名" , dbText ,6) ′創建一個字元型的欄位，長度為6個字元
DefTableFields.Append NewField ′欄位追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完畢 "
Exit Sub
Err100:
MsgBox "對不起，不能建立表。請先再建表前建立資料庫？", vbCritical
End Sub

⑦ VB資料庫視頻教程

Dim ServerAdd As String '伺服器地困滲知址 (127.0.0.1)
Dim DBname As String '伺服器上資料庫的名稱
Dim UserName As String '登錄資料庫的用戶名
Dim UserPwd As String '登錄資料庫的密碼

'設置連接字元串的參數
ServerAdd = Trim(TxtServer.Text) '伺服器IP(192.168.1.6)
DBname = "ChanYdata" '資料庫名稱
UserName = "" '登錄用戶汪消名
UserPwd = "" '密碼

SqlCon.ConnectionTimeout = 10
SqlCon.CursorLocation = adUseClient
SqlCon.ConnectionString = "喊念uid=" & UserName & ";pwd=" & UserPwd & ";driver={Sql server};server=" & ServerAdd & ";database=" & DBname & ";dsn=''"

⑧ VB程序設計一般的四個步驟

1、建立應用程序界面

2、設置對象的屬性

3、編寫應用程序的代碼

4、保存和運行程序

VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項，用於高效生成類型安全和面向對象的應用程序。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

(8)vb資料庫編程教程擴展閱讀

VB語言缺點

Visual Basic 語言具有不支持繼承、無原生支持多線程、異常處頌做理不完汪局善等三項明顯缺點，使其有所局限性（此些缺點皆已在 vb .net 獲得改進）。

1、不支持繼承

VB 5.0 和 VB 6.0 都是基於對象的編程語言，但是不包含繼承特性。VB 中提供了特殊的類的功能，但是還是不能滿足程序員的需求。

2、無原生支持多線程

Visual Basic 對於多線程無原生支持，只能通過Windows API的調用實現，且極其的不穩定。因為在API創建的線程中，並沒有自動初始化運行時庫，導致部分的函數無法使用。一般的，在VB6等早期的VB開發環境下，使用API創建線程的目的是完成容易使程序假死的大量數據或者邏輯的計算。

3、異常處理不完善

Visual Basic 中內置異常處理，即使未寫異常處理代碼，一旦用戶出錯也會彈出一個明確寫出出錯原因對話框，接著程序終止。

Visual Basic 中可以使用 Err.Raise拋出異常。對系統及用戶拋出的異常的處理常用兩種模式：一是使用 On Error Resume Next 處理錯誤；另一種是使用 On Error Goto 將運行引入錯誤處理代碼。但相對 C++ 等語言而言，這樣的異常處困櫻讓理破壞了代碼的結構。