vb數(shù)據(jù)庫記錄查詢四法vb數(shù)據(jù)庫dao-資料下載頁
2025-08-27 20:44本頁面
【導(dǎo)讀】在VB中進(jìn)行數(shù)據(jù)庫記錄的查詢操作，必需根據(jù)打開數(shù)據(jù)庫的方式來確定。以VB3．0為例，數(shù)。據(jù)集對象有Table、Dynaset、Snapshot三種，下面四種查詢方法分別適用于以上面不同的對象方式。的查詢結(jié)果是將指針移到符合條件的第一個記錄。2．用FILTER屬性查詢。兩者，不能用于Table。Filter是用來過濾數(shù)據(jù)的，只要我們給定過濾條件就可以將所需的記錄篩選。SQL是一種結(jié)構(gòu)化數(shù)據(jù)查詢語言，SQL也只能適用Dynaset和Snapshot數(shù)據(jù)集。VB全稱VisualBasic,是微軟公司推出的基于Basic語言的可視化編程環(huán)境,以其簡單易學(xué)功能強大。而倍受廣大電腦愛好者的青睞。VB的數(shù)據(jù)庫編程方面按其難易程度可分為三類;設(shè)計,現(xiàn)在就將以上三種設(shè)計方法的適應(yīng)范圍及其優(yōu)缺點進(jìn)行一個比較?？梢源嫒?shù)據(jù)庫集合對象,例如TableDefs、Fields、Indexes及QueryDefs具有真正的事務(wù)處理能力,VisualBasic是一種可視化的、事件驅(qū)動型的Windows應(yīng)用程序開發(fā)工具，它在GUI. 受到開發(fā)人員的親睞。是益廣泛的應(yīng)用。現(xiàn)在，筆者就VB應(yīng)用數(shù)據(jù)庫的一些方法作一簡單的介紹。
【正文】 ws In Workspaces For Each db In For Each rs In Set rs = Nothing Next Set db = Nothing Next Set ws = Nothing Next 39。 End Sub 取得下個自動生成的 ID 在許多數(shù)據(jù)庫里我們使用了自動增加的 ID， 能取得下個 自動產(chǎn)生的 ID， 意味著在數(shù)據(jù)增加后， 不再需要使用 LastModified 屬性和 bookmarks。 With .AddNew MsgBox !ID 39。下個自動生成的 ID .CancelUpdate End With 用 DATA控件綁定報表控件打印報表 1 在數(shù)據(jù)庫中生成一 TEMP表。 2 用報表生成器生成報表，然后刪除數(shù)據(jù)庫中的 TEMP表。 3 在 VB中打開數(shù)據(jù)庫，用 OPENRECORDSET語句生成一個 RECORDSET (此 RECORDSET的結(jié)構(gòu)要與第一步生成的 TEMP表一樣，但記錄數(shù)可以 用 WHERE子句限制 ) 用 SET =RS(RECORDSET)將 RECORDSET的數(shù)據(jù)賦予數(shù)據(jù)控件。 4 設(shè)定報表控件的 REPORTFILENAME屬性為報表文件名； REPORTSOURCE屬性為 3； DATASOURCE屬性為數(shù)據(jù)控件名 5 執(zhí)行 =1即可打印。 但我不知如何直接利用 RECORDSET中的數(shù)據(jù)，如果你知道請告知。 感謝由 FENG 提供該技巧。 取得正確的 RecordCount 值 特別是在 RecordSet 中記錄比較多的情況，在更新 RecordSet 后 RecordCount 返回的值一般比真實的值要小， 以下的方法可以保證得到正確的值： RCount = 鎖住數(shù)據(jù)庫中的表 把表達(dá)式 True=False 放到表的 ValidationRule 屬性就能鎖上。 HardLockTable 實現(xiàn)了該功能。 聲明 Public MyDB As Database Dim Dummy As Integer 函數(shù) Function HardLockTable (ByVal whichAction As String, ByVal aTable As String) As Integer On Error GoTo HardLockTableError HardLockTable = True Select Case whichAction Case Lock (aTable).ValidationRule = True=False (aTable).ValidationText = This table locked via amp。 ValidationRule on amp。 Now Case UnLock (aTable).ValidationRule = (aTable).ValidationText = Case TestThenUnLock If (aTable).ValidationRule = True=False Then (aTable).ValidationRule = (aTable).ValidationText = End If End Select HardLockTableErrorExit: 39。subFlushDBEngine 39。optional, see next suggestion Exit Function HardLockTableError: HardLockTable = False MsgBox Error$ amp。 error amp。 in HardLockTable trying amp。 to amp。 whichAction amp。 amp。 aTable Resume HardLockTableErrorExit End Function 使用例子 39。上鎖 Dummy = HardLockTable(Lock, TestTable) 39。 開鎖 Dummy = HardLockTable(UnLock, TestTable) Data 控件使用有密碼的 Access 數(shù)據(jù)庫 使用 Data 控件打開 Accecc 數(shù)據(jù)庫： 設(shè)置 Connect 屬性為 。pwd=密碼 = 。pwd=密碼 修改密碼： _老密碼 _, _新密碼 _ 處理在 Access 數(shù)據(jù)庫中的 Null 值 Access 的字符串字段可以包含 NULL 值。在讀這些字段到 VB 的 String 變量時，會 出現(xiàn)運行時間的錯誤。最好的解決方法是使用 amp。 操作符將該字段與空串連接： sString = amp。 RS(0) 表或查詢是否存在 在 VB5 中需要 Microsoft DAO Object Library。 Public Const NameNotInCollection = 3265 Dim DB As Database Private Function ExistsTableQuery(TName As String) As Boolean Dim Test As String On Error Resume Next 39。 該名字在表名中是否存在。 Test = (TName).Name If Err NameNotInCollection Then ExistsTableQuery = True 39。 Reset the error variable: Err = 0 39。 該名字在查詢中是否存在。 Test = (TName$).Name If Err NameNotInCollection Then ExistsTableQuery = True End If End If End Function 連接 Data到多個表單 假設(shè) Form1， Form2 表單都有 Data 控件，在 Form2 的 Form_Load 事件中加入以下的代碼，可以實現(xiàn)對 DATA 的多個連接。 Sub Form_Load () Set = End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1