VBA环境下ACCESS、EXCEL、SQLSERVER互相访问.pdf

7-1 SQLServer 实例7-1 判断SQLServer数据库是否存在 实例 判断 数据库是否存在 ADO ADO （ ） （ ） microsoftactivexdataobjects2.xlibrary 引用：microsoftactivexdataobjects2.xlibrary 引用： Public Sub7_1() Public Sub7_1() DimcnnAsADODB.Connection DimcnnAsADODB.Connection DimcnnStrAsString DimcnnStrAsString DimmydataAsString DimmydataAsString mydata= mydata=商品信息 商品信息 ‘ SQLServer Connection ‘创建与SQLServer数据库服务器连接的Connection对象 创建与 数据库服务器连接的 对象 Setcnn=NewADODB.Connection Setcnn=NewADODB.Connection ‘ SQLServer ‘设置建立与SQLServer数据库服务器中指定数据库连接的字符串 设置建立与 数据库服务器中指定数据库连接的字符串 cnnStr=Provider=SQLOLEDB.1;_ cnnStr=Provider=SQLOLEDB.1;_ UserID=sa;_ UserID=sa;_ DataSource=THTFCOMPUTE ;_ DataSource=THTFCOMPUTE ;_ InitialCatalog=mydata InitialCatalog=mydata cnn.ConnectionString=cnnStr cnn.ConnectionString=cnnStr ‘‘试图打开指定的数据库 试图打开指定的数据库 OnError esumeNext OnError esumeNext cnn.Open cnn.Open OnErrorGoTo0 OnErrorGoTo0 ‘‘判断数据库是否存在 判断数据库是否存在 Ifcnn.State=adStateOpenThen Ifcnn.State=adStateOpenThen MsgBox mydata MsgBox数据库mydata存在 数据库 存在 cnn.Close cnn.Close Setcnn=Nothing Setcnn=Nothing Else Else MsgBox mydata MsgBox数据库mydata不存在 数据库 不存在 EndIf EndIf EndSub EndSub ·分析： ·分析： SQLServer 判断在SQLServer数据库服务器上是否存在指定的某个数据库，方法就是度图去打开 判断在 数据库服务器上是否存在指定的某个数据库，方法就是度图去打开 SQLServer SQLServer数据库服务器的某个数据库，如能打开则表明该数据库存在，否则就不存在。利 数据库服务器的某个数据库，如能打开则表明该数据库存在，否则就不存在。利 ADODB.Connection State 用ADO