vb數(shù)據(jù)庫記錄查詢四法vb數(shù)據(jù)庫dao(編輯修改稿)
2024-10-11 20:44 本頁面
【文章內(nèi)容簡介】 2 個字節(jié)構(gòu)成。 字段說明 起始地址 字節(jié)數(shù) 含義 111 11 字段名稱 12 1 字段類型（分別為 C、 N、 D、 L 等） 1316 4 該字段在文件中地址 17 1 字段長度 18 1 小數(shù)位數(shù) 1932 14 未使用 知道了字段信息說明，就可以使用 復(fù)合變量 + 2 進(jìn)制文件 來操作數(shù)據(jù)庫了。 T ext 轉(zhuǎn)換為 Access MDB T ext 文件類型在很多軟件中都為一般應(yīng)用 程序與數(shù)據(jù)庫之間架起一座橋梁。你可以使用 T ext ISAM 驅(qū)動程序和 SQL 來把 Text 文件轉(zhuǎn)換成 Access MDB 數(shù)據(jù)庫文件，首先，為文本文件創(chuàng)建一個 SCHEMA. INI 文件。然后，你可以使用下面的代碼來實(shí)現(xiàn)轉(zhuǎn)換： Dim db As Database, tbl as T ableDef Set db = ( amp。 \, dbLangGeneral, dbVersion_0) Set tbl = db. Cr eateTableDef(Temp) tbl. Connect = T ext。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 屬性就能鎖上。 HardLockTable?實(shí)現(xiàn)了該功能。 聲明 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。 ?ValidationRule on amp。 Now Case UnLock (aTable).ValidationRule = (aTable).ValidationText = Case T estThenUnLock If (aTable).ValidationRule = T rue=False T hen (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。 aT able Resume HardLockTableErrorExit End Function 使用例子 39。上鎖 Dummy = HardLockTable(Lock, T estTable) 39。 開鎖 Dummy = HardLockTable(UnLock, T estTable) 關(guān)閉所有的數(shù)據(jù)連接 如果在代碼中使用了數(shù)據(jù)控件如 DAO， RDO， 或 ADO， 在退出時應(yīng)該關(guān)閉所有打開的 recordset， database，和 workspace 。 雖然對象能自動注銷， 但是數(shù)據(jù)連接不會馬上斷開， 可能會導(dǎo)致一些內(nèi)存不能被系統(tǒng)重新分配。 下面的代碼可以關(guān)閉所有打開的 DAO workspace， 并釋放所占的內(nèi)存。 P rivate Sub Form_Unload(Cancel As Integer) On Error Resume Next 39。 Dim ws As Workspace Dim db As Database Dim rs As Recordset 39。 For Each ws In Workspaces For Each db In ws. Databases For Each rs In db. Recordsets rs. Close Set rs = Nothing Next db. Close Set db = Nothing Next ws. Close Set ws = Nothing Next 39。 End Sub 如何刪除 FoxPro 數(shù)據(jù)庫的數(shù)據(jù) ? 用 VB 對 FOXPRO 數(shù)據(jù)庫操作 ,經(jīng)常會遇到這樣一個問題 : 只能對記錄進(jìn)行 DEL,也就是在該條記錄上打一個刪除標(biāo)記 ,但不能 象在數(shù)據(jù)庫中那樣 ,用 PACK把這條記錄真正刪除 .當(dāng)記錄數(shù)較多時 , 用 DBGRID 等控件做的程序都會出錯 .該怎樣辦呢 ?其實(shí) ,VB 中無法對 DBF 文件進(jìn)行 PACK。只能把ISAM 的設(shè)置 Deleted 設(shè)為 On。這樣相當(dāng)于 FoxPro 的 SET DELETED ON。不信你可以試一試。 VB 應(yīng)用小集 訪問 VB 外來數(shù)據(jù)庫 VB 最引人注目的特點(diǎn)，也是其最令程序員關(guān)心的地方，就是它訪問多種數(shù)據(jù)庫的強(qiáng)大功能。 VB中將非 MS Access 數(shù)據(jù)庫稱為外來數(shù)據(jù)庫 (External Database)，如 dBASE、 FoxPro、 ODBC 等。 VB中使用數(shù)據(jù)控制訪問外來數(shù)據(jù)庫同訪問 Access 數(shù)據(jù)庫類似，這里不再贅述，現(xiàn)在主要讀一下用生成對象的方法來訪問外來數(shù)據(jù)庫。訪問外來數(shù)據(jù)庫 ((以 dBASE 為例 )大致分為以下幾步： 第一步：建立一個 Access 型數(shù)據(jù)庫，并在數(shù)據(jù)庫中創(chuàng)建新表 —即為附加表。通過設(shè)置 附加表的各屬性值，使其與你所要訪問的數(shù)據(jù)庫建立鏈接關(guān)系。程序代碼如下： DimDbasDatabase DimT dasNewTabledef SetDb=OpenDataba
公司管理相關(guān)推薦
鄂ICP備17016276號-1