如何判断数据库是否成功打开.txt

VB技巧问答10000例 VB技巧问答10000例

1、 利 用 错 误 陷 阱 进 行 判 断 ， 代 码 如 下 ： 
     on error resume next 
     err.clear 
     dim mycn as new adodb.connection 
     set mycn = new adodb.connection 
     mycn.open "dsn=abc;uid=uidstr;pwd=pwdstr" '此 处 以 odbc举 例 。 
     if err.number = 0 then 
     '数 据 库 打 开 成 功 
     else 
     '打 开 失 败 
     end if 
    2、 与 上 问 类 似 ， 添 加 ado控 件 后 ， 不 要 设 置 关 于 连 接 的 属 性 。 
     on error resume next 
     err.clear 
     Adodc1.CommandType = adCmdtable 
     Adodc1.ConnectionString = "dsn=abc;uid=uidstr;pwd=pwdstr" '此 处 以 odbc举 例 。 
     Adodc1.RecordSource = "table1" 
     Adodc1.Refresh 
     
     if err.number = 0 then 
     '数 据 库 打 开 成 功 
     else 
     '打 开 失 败 
     end if 
     3、 本 人 没 有 用 过 DAO, 无 法 回 答 。 
    （ 主 持 人 注 ： DAO的 处 理 方 法 同 问 题 1基 本 相 同 。 ） 
<END>