vb數(shù)據(jù)庫記錄查詢四法vb數(shù)據(jù)庫dao-文庫吧資料
2024-09-13 20:44本頁面
【正文】 ValidationText = End If End Select HardLockTableErrorExit : 39。 聲明 P ublic MyDB As Database Dim Dummy As Integer 函數(shù) Function HardLockTable (ByVal whichAction As String, ?ByVal aT able As String) As Integer On Error GoTo HardLockTableError HardLockTable = T rue Select Case whichAction Case Lock (aTable).ValidationRule = T rue=False (aTable).ValidationText =?This table locked via amp。database=c:\vbpj\data tbl. SourceTableName = Customertxt db. tbl db. Execute Select T emp.* into NewT able from T emp db. tbl. Name db. Close Set tbl = Nothing Set db = Nothing 鎖住數(shù)據(jù)庫中 的表 把表達(dá)式 True=False 放到表的 ValidationRule 屬性就能鎖上。然后，你可以使用下面的代碼來實(shí)現(xiàn)轉(zhuǎn)換： Dim db As Database, tbl as T ableDef Set db = ( amp。 T ext 轉(zhuǎn)換為 Access MDB T ext 文件類型在很多軟件中都為一般應(yīng)用 程序與數(shù)據(jù)庫之間架起一座橋梁。下面列出 FoxBase 數(shù)據(jù)庫說明： FoxBase 數(shù)據(jù)庫說明 起始地址 字節(jié)數(shù) 含義 1 1 FoxBase 數(shù)據(jù)庫文件標(biāo)志 24 3 最后一次修改日期， 3 個(gè)字節(jié)分別為年、月、日 58 4 文件記錄總數(shù) 910 2 記錄頭長度 1112 2 每個(gè)記錄長度 1322 20 未使用 下面列出字段說明，每個(gè)字段由 32 個(gè)字節(jié)構(gòu)成。 比如： FoxBase 的 DBF 文件（我不了解其它數(shù)據(jù)庫的文件結(jié)構(gòu)，大家可以去查查）：它由記錄頭和記錄構(gòu)成。那么，在 VB 中能不能不用 DAT A 控件訪問數(shù)據(jù)庫呢？ 在 VB 中不用 DAT A 控件而訪問數(shù)據(jù)庫，只有一法：將數(shù)據(jù)庫文件當(dāng)成 2 進(jìn)制文件打開。 不用 DAT A 控件操作數(shù)據(jù)庫文件 大家知道，在 VB 中如果使用 DAT A 控件訪問數(shù)據(jù)庫，那么程序執(zhí)行就必須要一些大型 DLL 支持。它們可以嵌套使用。要真正刪除記錄，你可以使用 VB 提供的以下方法： BeginTrans、 CommitTrans、 RollBack。另外，數(shù)據(jù)庫控制控件的RecordSource 屬性可用一個(gè) SQL 語句賦值，以此來有效地調(diào)用 SQL 語句，從而發(fā)揮 SELECT 語句強(qiáng)大的功能，更使數(shù)據(jù)庫控制控件（ Data Control）錦上添花。 設(shè)置 =False’將控件設(shè)為不可見 將按鈕 Command2， 3， 4， 5， 6， 7 的 Caption 屬性分別設(shè)置為 “追加 ”、 “首記錄 ”、 “上一條 ”、“下一條 ”、 “尾記錄 ”、 “刪除 ”，雙擊各按鈕，分別寫入事件代碼： Sub Command1Click() ’關(guān)閉應(yīng)用程序 End End Sub Sub Command2Click() ’追加記錄 . Addnew . Update . MoveLast End Sub Sub Command3Click() ’移向首記錄 . MoveFirst End Sub Sub Command4Click() ’移向上一條記錄 . MovePrevius If . Bof T hen . MoveFirst End If End Sub Sub Command3Click() ’移向尾記錄 . MoveLast End Sub Sub Command4Click() ’移向下一條記錄 . MoveNext If . Eof T hen . MoveLast End If End Sub 除此之外，數(shù)據(jù)庫控制控件還有 Bookmark、 RecordCount 等許多屬性與方法，能對數(shù)據(jù)庫進(jìn)行各種方便的操作。 此時(shí)，一個(gè)具備數(shù)據(jù)庫讀寫、瀏覽功能的應(yīng)用程序就建立了，按下 F5 運(yùn)行，通過單擊 Data1 的各按鈕即可看出當(dāng)前記錄的變化情況。在 Form 窗口中單擊選中此控件（ DGrid1），按下 F4 打開屬性窗口，設(shè)置 Datasource 屬性為 Data1，在 Form 窗口中用鼠標(biāo)右鍵單擊控件 DGrid1，選擇 Retrieve Fields；再用鼠標(biāo)右鍵單擊控件 DGrid1，選擇 Edit，用鼠標(biāo)調(diào)整控件及有關(guān)字段大小；再用鼠標(biāo)右鍵單擊控件 DGrid1，選擇 Properties（屬性），在彈出窗口中，選擇Colums 標(biāo)簽，在下 拉列表中選 Colum1，將 Caption 屬性改為 “學(xué)號 ”，選擇 Colum2， Caption 屬性改為 “姓名 ”，選擇 Colum 4 將 Caption 屬性改為 “性別 ”、 “專業(yè) ”，按下 “確定 ”按鈕。 二、 設(shè)置聯(lián)接庫 用鼠標(biāo)單擊 Data1，按下 F4，打開屬性窗口，設(shè)置 Connect 屬性為 Foxpro2. 5，設(shè)置 DatabaseName 為 c:\foxprow\（假設(shè)磁盤上已有這個(gè)文件）。在這三種方法中，第一種方法操作起來最方便、靈活、易于掌握，同時(shí)也最能體現(xiàn) Visual Basic 面向?qū)ο蟮奶厣蔬@里以 的數(shù)據(jù)庫為例，介紹數(shù)據(jù)庫控制控件（ Data Control）訪問數(shù)據(jù)庫的方法與步驟： 一、 在 Form 窗口中加入 Data Control 控件 用鼠標(biāo)在工具窗口的 Data Control 控件按鈕上雙擊左鍵，該對象即出現(xiàn)在 Form 窗口的中間（控件名為 Data1），用鼠標(biāo)調(diào)整 好控件的大小及位置。現(xiàn)在，筆者就 VB 應(yīng)用數(shù)據(jù)庫的一些方法作一簡單的介紹。 VB 能夠讀取和訪問 Access、 Excel、 DbaseX、 Foxpro、 Btrieve 和 ODBC 等多種數(shù)據(jù)庫，并能利用 VB 自身所帶的數(shù)據(jù)庫引擎創(chuàng)建 Access 數(shù)據(jù)庫。 1 使用數(shù)據(jù)庫控制項(xiàng)和綁定控制項(xiàng) 1. 1 優(yōu)點(diǎn) 它是三種方法中編碼量最小的 不必了解 I 的細(xì)節(jié) 允許使用標(biāo)準(zhǔn)的和第三方廠商制訂的控制項(xiàng) 簡化了錯(cuò)誤處理 支持所
公司管理相關(guān)推薦
鄂ICP備17016276號-1