vb資料庫控制項

『壹』 vb連接資料庫 求教！！！。。。

關於VB6 + Access的簡單資料庫應用問題
最近，經常看到有人提問相關問題，心血來潮有一股沖動，把這個方面的應用在這里介紹一下。
我使用過的VB6提供的資料庫連接控制項有兩個，一個是Data控制項另一個是Adodc控制項。
考慮到Data控制項只能針對本地資料庫的開發應用，並且它只支持VB5中的網格控制項DBGrid控制項，所以這里主要介紹Adodc控制項。（注意：VB5的DBGrid控制項，需要把DBGRID32.OCX文件復制到c:\windows\system32\DBGRID32.OCX進行引用）
下面介紹使用Adodc控制項與DataGrid控制項進行簡易資料庫的應用：
一．添加Adodc控制項與DataGrid控制項：
因為這兩個控制項默認狀態下都不在「控制項工具箱」內，所以需要手動添加到「控制項工具箱」內。
1．添加Adodc控制項：
在VB6里，通過菜單來添加該控制項，方法：[工程] -- [部件]，出現「部件」對話框，在「控制項」選項卡里，通過滾動條，找到並勾選：Microsoft Ado Data Control 6.0 (SP6) (OLEDB)，然後單擊[確定]，這樣該控制項圖標就出現在「控制項工具箱」里了，你可以像使用其它你熟悉的控制項一樣，添加到窗體上。
2．添加DataGrid控制項:
方法與過程與添加Adodc控制項過場相似，勾選的是：Microsoft DataGrid Control 6.0 (SP6) (OLEDB)。
二．連接數據：
為了說明，假設你有資料庫文件「資料庫.Mdb」，在里邊有數據表「學生基本信息」和「學生成績」。
「學生基本信息」有欄位：學號、姓名、性別（都是字元類型）
「學生成績」有欄位：學號、語文、數學、英語（學號字元類型，其它數值類型）
假設你添加的控制項為：Adodc1和DataGrid。
1．先將Adodc1控制項連接到資料庫文件：（有兩種方法）
方法1：設置Adodc1的ConnectionString屬性，在屬性窗口點帶有省略號的按鈕…選[生成] -- 選Microsoft Jet 4.0 OLE DB Privider -- [下一步]--單擊省略號按鈕，定位到你保存「資料庫.MDB」的位置，選中該資料庫，單擊[打開]，連接成功了，可以測試一下。回到窗體，你會看到Adodc1的ConnectionString 屬性里的一大串內容。
方法2：也可以用命令直接設置連接，在運行時通過執行該命令來完成連接，命令如下：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控制項實例\資料庫.mdb;Persist Security Info=False"，值得說明以下，這個雙引號里的內容，是我的實際情況，因為我在VB98文件夾里，建立了子文件夾「\ADODC控制項實例」，並把使用的資料庫文件復制到該文件夾里了。這里引號里的一大串內容，你可以從剛在屬性窗口裡直接復制過來，然後做一些改動，要注意這個改動往往是必要的也是非常關鍵的，因為考慮到一般情況，你的應用程序不可能安裝到「\VB98」這個文件夾，所以一般的改動如下：
將「Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控制項實例\資料庫.mdb」改為「Source=" & App.Path & "\資料庫.mdb」即完整的情況如下：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\資料庫.mdb;Persist Security Info=False"
接下來連接到數據表「學生基本信息」：
方法1：設置Adodc1的RecordSource 屬性，在屬性窗口點帶有省略號的按鈕，在「命令類型」里，選:2 – adCmdTable，在"表或存儲過程名稱"里，選「學生基本信息」，單擊確定，你會看到ADODC1的RecordSource 屬性欄里是「學生基本信息」。
方法2：也可以用命令直接設置連接：
Adodc1.RecordSource = "學生基本信息"
至此，完成了ADODC1控制項與資料庫的連接。
三．將DataGrid1綁定到ADODC1控制項：
選中窗體上的DataGrid1，設置其DataSource 屬性，點右邊的下拉按鈕，選ADODC1，完成綁定。
設置DataGrid1顯示內容與模式，右擊窗體上的DataGrid1控制項，選"檢索欄位"，選[Y]，完成。
至此，你啟動窗體，就可以在DataGrid1控制項里看到效果了。
可以右擊窗體上的DataGrid1控制項，選「屬性」，進一步作設置，比如：「允許添加」、「允許刪除」。
四．常用操作資料庫的命令:
1．刷新記錄集：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\資料庫.mdb;Persist Security Info=False" 『連接資料庫文件
Adodc1.RecordSource = "學生基本信息" 『連接數據表
Adodc1.Refresh 『刷新記錄集，這個不能漏
2．移動記錄：
Adodc1.Recordset.MoveFirst 『記錄指針移動到第1條記錄
Adodc1.Recordset.MoveNext 『記錄指針移動到下1條記錄
Adodc1.Recordset.MoveLast 『記錄指針移動到最後1條記錄
Adodc1.Recordset.MovePrevious 記錄指針移動到前1條記錄
注意：上面執行Adodc1.Refresh後，如果數據表非空，就自動將記錄指針指向第1條記錄。
3．編輯更新數據：
首先將記錄移動到需要編輯更新的記錄，當然在DataGrid1里可以直觀地進行修改編輯，也可以用命令；
Adodc1.Recordset.Fields ("姓名") = 「王偉」 『用「王偉」更新當前記錄的「姓名」欄位
Adodc1.Recordset.Update 『執行更新，注意這一步不能漏
當然，你可以對某條記錄的若干個欄位進行更新後，再一次進行Update
4．添加記錄：
Adodc1.Recordset.AddNew 『在數據表的末尾添加一條空記錄（所有欄位為空）
說明：如果用命令要增加一條記錄信息，通常：
1）先用AddNew
2）然後用：
For i = 0 To Adodc1.Recordset.Fields.Count - 1
Adodc1.Recordset.Fields(i) = 內容i
Next i
3）最後用：Adodc1.Recordset.Update
5．刪除記錄：
首先移動到你要刪除那條記錄，然後執行：Adodc1.Recordset.Delete
五．關於sql語句在連接數據表時的一些基本用法：
前面介紹用Adodc控制項連接好資料庫文件後，要設置其RecordSource來連接數據表，即：Adodc1.RecordSource = "學生基本信息"
其實RecordSource屬性，可以使用SQL語法，常用Select語句格式如下：
Select 欄位列表 From 數據表名 [Where …] [Order By …]
其中：
欄位列表– 是指返回的記錄，包含哪些欄位，欄位名之間用逗號分隔
數據表名 -- 是指從哪個數據表返回信息
例如1：
Adodc1.RecordSource = "Select 學號,姓名 From 學生基本信息"
例如2：
Adodc1.RecordSource = "Select * From 學生基本信息"
例2的結果與Adodc1.RecordSource = "學生基本信息"相同。其中「*」表示所有欄位。
Where子句– 根據條件篩選記錄
Order By 子句– 設置排序
例如3：
Adodc1.RecordSource = "Select * From 學生基本信息 Where 性別=』女』"
僅返回女生記錄。
例如4：
Adodc1.RecordSource = "Select * From 學生基本信息 Where 學號>』300』 And性別=』男』"
僅返回學號大於「300」的男生記錄。
例如5：
Adodc1.RecordSource = "Select * From 學生基本信息 Order By 學號"
按照學號從小到大（升序）的次序，返回記錄。
例如6：
Adodc1.RecordSource = "Select * From 學生基本信息 Order By 學號/D"
按照學號從大到小（降序）的次序，返回記錄。
注意：/D表示從大到小，/A表示從小到大，/A是預設表示。
關於SQL語法，可以到以下網址查詢並運用，非常有價值：
http://www.w3school.com.cn/sql/
六．小技巧：
在使用Adodc1的時候，有一些值得注意的細節：
1．關於Adodc1控制項的Eof、Bof屬性
Eof – 返回數據表（或返回的記錄集）記錄指針是超出表尾
Bof – 返回數據表（或返回的記錄集）記錄指針是超出表頭
怎麼理解呢？假設你的數據表只有一條記錄，當你一開始使用了：
Adodc1.Refresh
後，這時記錄指針指向第1條也是唯一的1條記錄，這時候Adodc1的Eof和Bof屬性都為False（記錄指針既沒有超出表尾也沒有超出表頭），如果這時候使用移動到下一條記錄命令：
Adodc1.Recordset.MoveNext
那麼，Eof為True，Bof 為False。然後，使用命令
Adodc1.Recordset.MovePrevious 『移動到前一條記錄
這時，記錄指針指向第1條也是唯一的1條記錄，Eof為False，Bof 為False。然後，使用命令
Adodc1.Recordset.MovePrevious 『移動到前一條記錄
這時，指針向前超出表頭，即：Eof為False，Bof 為True。
特別的情況，假設你的數據表沒有任何記錄，當你一開始使用了：
Adodc1.Refresh
這時，Eof為True，Bof 為True。
通常使用這兩個屬性來判斷數據表（或返回的記錄集）是否為空：
1）有時候一些數據表一開始可能是空表，即沒有記錄，但是我們又不知道，通常如下編寫代碼：
Adodc1.Refresh
If Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then
『編寫當不存在記錄時對數據表操作的代碼
Else
『編寫當存在記錄時對數據表操作的代碼
End If
2．關於空欄位的操作：
我們經常需要將找到的某記錄的某個欄位值，賦予變數，例如
Dim XB As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\資料庫.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * From 學生基本信息 Where 姓名=』張飛』"
Adodc1.Refresh
XB = Adodc1.Recordset.Fields("性別")
這時，如果該記錄的"性別"欄位里沒有內容，將會出錯誤提示，所以，我們往往在命令中使用函數IsNull進行判斷：
If Not IsNull(Adodc1.Recordset.Fields("性別")) Then
XB = Adodc1.Recordset.Fields("性別")
EndIf
最後，Adodc控制項不僅可以連接本地資料庫，還可以連接遠程資料庫，使用幾乎與本地資料庫一樣。
大概想到的就是這些，僅供參考，有不正確的地方請指正。

『貳』 VB如何使用ADODC控制項用代碼連接資料庫

需要用到的控制項：ADODC和DataGrid控制項ADODC和DataGrid控制項都屬於ActiveX控制項，在使用之前需要引用它們，在VB控制項中勾選
Microsoft ADO Data Control 6.0和Microsoft DataGrid Control 6.0
ADODC控制項屬性設置：
1、在ADODC控制項上右擊，選擇ADODC屬性
2、然後在通用選項卡中選擇使用連接字元串，點擊生成按鈕
3、然後選擇Microsoft Jet 4.0 OLE DB Provider，點擊下一步
4、選擇要連接打開的Access資料庫文件(你要打開的ACCESS文件)，點擊測試連接，提示成功即可
5、切換到記錄源選項卡，
命令類型選擇2-adCmdTable，
表或存儲過程名稱
選擇要打開的表，點擊確定。
經過以上的步驟設置，ADODC控制項雖然具有了「打開」資料庫的能力，但它沒有「顯示」數據的能力，此時我們就要藉助DataGrid控制項了。
DataGrid控制項屬性設置：
設置DataGrid控制項的DataSource屬性為Adodc1
通過以上語句的設置，就將DataGrid控制項和Adodc控制項綁定在一起了，這樣DataGrid才能正常顯示Adodc打開數據表的內容。

『叄』 vb中關於msflexgrid控制項顯示查找到的資料庫內容的問題，求大神指點

現在你顯示數據的方法是不是讓 表格的datasource屬性綁定到 Data1 控制項上？這樣的話，你每次更新
Data1 ，表格中所有數據都將更新，也就是你Data1中是什麼數據，表格就是什麼數據
就目前我覺得有2個方法
1、就是你每次查找時 修改sql語句的條件，比如你之前的條件是 ".. where errCode = 5"--這里是查詢1條記錄
你後面重新查找時就將 條件改為 ".. where errCode in (5,6,7)"--這樣就可以查出多條記錄
2、利用ADO對象操作資料庫(具體怎麼操作，你可以找些資料，有問題到時候再分析)
這樣你每次查找1條記錄後，給表格新增1行，寫入數據，其他的數據則保留下來

『肆』 VB6.0中怎樣使用data控制項實現資料庫查找功能

1、使用data控制項的FindFirst方法可以實現資料庫記錄的查找。

2、工具：vb6。

3、具體實現方法：

a)在窗體上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource屬性里選擇data1

c)實現代碼如下：

PrivateSubCommand1_Click()
'查找定位記錄
Data1.Recordset.FindFirst"CategoryID="&Text1.Text

DBGrid1.DataSource
EndSub

PrivateSubForm_Load()
Data1.Connect="Access2000;"'設置資料庫類型
Data1.DatabaseName="C:db1.MDB"'連接資料庫
Data1.RecordSource="Categories"'資料庫中的表
Data1.Refresh'打開資料庫

EndSub

4、注意：資料庫可以使用vb6文件夾內的NWIND.MDB

『伍』 VB如何使用ADODC控制項用代碼連接資料庫

Microsoft ADO Data Control 6.0和Microsoft DataGrid Control 6.0 ADODC控制項屬性設置： 1、在ADODC控制項上右擊，選擇ADODC屬性 2、然後在通用選項卡中選擇使用連接字元串，點擊生成按鈕 3、然後選擇Microsoft Jet 4.0 OLE DB Provider，點擊下一步 4、選擇要連接打開的Access資料庫文件(你要打開的ACCESS文件)，點擊測試連接，提示成功即可 5、切換到記錄源選項卡， 命令類型選擇2-adCmdTable， 表或存儲過程名稱 選擇要打開的表，點擊確定。 經過以上的步驟設置，ADODC控制項雖然具有了「打開」資料庫的能力，但它沒有「顯示」數據的能力，此時我們就要藉助DataGrid控制項了。 DataGrid控制項屬性設置： 設置DataGrid控制項的DataSource屬性為Adodc1 通過以上語句的設置，就將DataGrid控制項和Adodc控制項綁定在一起了，這樣DataGrid才能正常顯示Adodc打開數據表的內容。