二个问题一直没解，烦请大下帮忙???

ccblmpt 2003-11-01 10:25:11

第一，
如何通过VB返回是否存在优盘,并知道盘符号和容量
第二，
如何修改ACCESS2000的数据库密码
谢谢

...全文

68 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-11-03

打赏
举报

不须用API，引用 ADO 3.6 就可以了。

Lionking1027 2003-11-03

打赏
举报

学习,UP

脆皮大雪糕 2003-11-03

打赏
举报

对于第一问：
GetLogicalDriveStrings 获取目前所有逻辑盘符然后用GetDriveType获取各个盘符的类型，U盘一般是DRIVE_REMOTE，最后用GetDiskFreeSpace获取空间。
各个函数说明列于下

【VB声明】
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

【别名】
GetLogicalDriveStringsA

【说明】
获取一个字串，其中包含了当前所有逻辑驱动器的根驱动器路径

【返回值】
Long，装载到lpBuffer的字符数量（排除空中止字符）。如缓冲区的长度不够，不能容下路径，则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError

【参数表】
nBufferLength -- Long，lpBuffer字串的长度

lpBuffer ------- String，用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔，在最后一个名字后面用两个NULL表示中止（空中止）

***********************************************************************

【VB声明】
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
【别名】
GetDriveTypeA
【说明】
判断一个磁盘驱动器的类型
【返回值】
Long，如驱动器不能识别，则返回零。如指定的目录不存在，则返回1。如执行成功，则用下述任何一个常数指定驱动器类型：DRIVE_REMOVABLE，
DRIVE_FIXED， DRIVE_REMOTE， DRIVE_CDROM 或 DRIVE_RAMDISK

【参数表】
nDrive --------- String，包含了驱动器根目录路径的一个字串
********************************************************************

【VB声明】
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

【别名】
GetDiskFreeSpaceA

【说明】
获取与一个磁盘的组织有关的信息，以及了解剩余空间的容量

【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError

【备注】
在采用FAT16格式的windows95系统中，如一个驱动器（分区）的容量超过了2GB，则不应使用这个函数。此时，这个函数能识别的最大分区容量只有2GB

【参数表】
lpRootPathName - String，不包括卷名的一个磁盘根路径

lpSectorsPerCluster - Long，用于装载一个簇内扇区数的变量

lpBytesPerSector - Long，用于装载一个扇区内字节数的变量

lpNumberOfFreeClusters - Long，用于装载磁盘上剩余簇数的变量

lpTtoalNumberOfClusters - Long，用于装载磁盘上总簇数的变量

ccblmpt 2003-11-02

打赏
举报

请问那个API函数

mingtian2008 2003-11-02

打赏
举报

seraph2 2003-11-02

打赏
举报

ccblmpt 2003-11-02

打赏
举报

since1990 2003-11-02

打赏
举报

subzero 2003-11-02

打赏
举报

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=111"

cn.Execute "Alter Database password 222 111"