|
導讀數據庫,簡而言之可視為電子化的文件柜——存儲電子文件的處所,用戶可以對文件中的數據進行新增、截取、更新、刪除等操作。所謂“數據庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應... 數據庫,簡而言之可視為電子化的文件柜——存儲電子文件的處所,用戶可以對文件中的數據進行新增、截取、更新、刪除等操作。所謂“數據庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應用程序彼此獨立的數據集合。 適用ACCESS97、2000這兩項磁碟機資料須使用API函數方可取得,代碼如下: Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long Function GetVolumn(X As String) As String If Len(X) < 3 Then X = Left(X, 1) & ":\" Else X = Left(X, 3) End If Dim nRet As Long, VolName As String, VolSN As Long, MaxCompLen As Long Dim VolFlags As Long, VolFileSys As String VolName = Space$(256) VolFileSys = Space$(256) nRet = GetVolumeInformation(X, VolName, Len(VolName), _ VolSN, MaxCompLen, VolFlags, _ VolFileSys, Len(VolFileSys)) If nRet = 1 Then GetVolumn = VolName Else GetVolumn = "" End If End Function Function GetNumber(X As String) As String If Len(X) < 3 Then X = Left(X, 1) & ":\" Else X = Left(X, 3) End If Dim nRet As Long, VolName As String, VolSN As Long, MaxCompLen As Long Dim VolFlags As Long, VolFileSys As String VolName = Space$(256) VolFileSys = Space$(256) nRet = GetVolumeInformation(X, VolName, Len(VolName), _ VolSN, MaxCompLen, VolFlags, _ VolFileSys, Len(VolFileSys)) If nRet = 1 Then GetNumber = VolSN Else GetVolumn = "" End If End Function 前面的Declare陳述式宣告一個API函數(GetVolumeInformation),可取得磁碟機的兩項資料。 全新的路由器不僅讓你更穩定快速地連接無線網絡,更可以讓家中的智能設備連接在一起。 |
溫馨提示:喜歡本站的話,請收藏一下本站!