实例7-1（ADO））
判断SQLServer数据库是否存在
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_1()DimcnnAsADODB.ConnectionDimcnnStrAsStringDimmydataAsStringmydata="商品信息"‘创建与SQLServer数据库服务器连接的Connection对象Setcnn=NewADODB.Connection‘设置建立与SQLServer数据库服务器中指定数据库连接的字符串cnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydatacnn.ConnectionString=cnnStr‘试图打开指定的数据库OnErrorResumeNextcnn.OpenOnErrorGoTo0‘判断数据库是否存在Ifcnn.State=adStateOpenThenMsgBox"数据库<"&;mydata&;">存在"cnn.CloseSetcnn=NothingElseMsgBox"数据库<"&;mydata&;">不存在"EndIfEndSub
·分析：分析：
判断在SQLServer数据库服务器上是否存在指定的某个数据库，方法就是度图去打开SQLServer数据库服务器的某个数据库，如能打开则表明该数据库存在，否则就不存在。利用ADODB.Connection对象的State属性即可实现。State属性用于检查Connection对象是打开还是关闭，或处于连接状态。如返回值为adstateopen,则表明已打开，如返回adstateclosed,则表明关闭，如返回adstateconnecting,表明是在连接。
例：cnnStr="Provider=SQLOLEDB.1;"_‘SQLOLEDB.1表示数据库类型为SQLServer&;”Password=12345;”_‘指定打开数据库的密码，可省略&;"UserID=sa;"_‘指定访问为数据库的用户名&;"DataSource=THTFCOMPUTER;"_‘指定数据库服务器名称或IP地址&;"InitialCatalog="&;mydata‘指定要访问的数据库名
·实例7-2
检查数据表是否存在（检查数据表是否存在（ADOX）是否存在）
引用：microsoftadoext.2.xforddlandsecurityPublicSub7_2()DimmyCatAsADOX.CatalogDimmtbAsADOX.TableDimcnnStrAsStringDimmydataAsString,myTableAsStringmydata="商品信息"myTable="商品名录"‘建立与SQLServer数据库服务器指定数据库的连接cnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydataSetmyCat=NewADOX.CatalogmyCat.ActiveConnection=cnnStr‘判断数据表是否存在ForEachmtbInmyCat.TablesIfLCase(mtb.Name)=LCase(myTable)ThenMsgBox"数据表<"&;myTable&;">存在！"GoTohhhEndIfNextMsgBox"数据表"&;myTable&;"不存在！"hhh:Setmtb=NothingSetmyCat=NothingEndSub
实例7-3·
创建新的SQLServer数据库和
数据表（数据表（ADO））
PublicSub7_3()DimcnnAsADODB.ConnectionDimcnnStrAsString,SQLAsStringDimmydataAsString,myTableAsStringmydata="商品信息"myTable="商品名录"‘创建与SQLServer数据库服务器中指定数据库连接的connection对象Setcnn=NewADODB.ConnectioncnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydatacnn.ConnectionString=cnnStrOnErrorResumeNextcnn.OpenOnErrorGoTo0‘判断数据库是否存在Ifcnn.State=adStateOpenThenMsgBox"数据库已经存在，请重新命名数据库名！",vbCriticalcnn.CloseSetcnn=NothingExitSubEndIf‘建立与SQLServer数据库服务器的连接cnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER"cnn.ConnectionString=cnnStrcnn.Open‘执行SQL语句创建数据库SQL="createdatabase"&;mydatacnn.ExecuteSQLMsgBox"数据库创建成功!",vbInformation,"创建数据库"‘关闭与SQLServer数据库服务器的连接cnn.Close‘重新建立与SQLServer数据库服务器的连接cnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_
&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydatacnn.ConnectionString=cnnStrcnn.Open‘执行SQL语句创建数据表SQL="createtable"&;myTable_&;"(商品编号varchar(10)notnullprimarykey,"_&;"商品名称varchar(20)notnull)"cnn.ExecuteSQLMsgBox"数据表创建成功!",vbInformation,"创建数据表"cnn.CloseSetcnn=NothingEndSub
·分析：分析：
SQL=”createtable表名（字段字段类型[（字段长度）][是否允许空值][是否为主键]”‘创建数据表
实例7-4·
在已有的SQLServre数据库中
创建数据表（创建数据表（ADO））
引用：microsoftactivedataobjects2.xlibrary和microsoftadoext.2.xforddlandsecurityPublicSub实例7_4()DimcnnAsADODB.ConnectionDimmyCatAsADOX.CatalogDimmtbAsADOX.TableDimcnnStrAsString,SQLAsStringDimmydataAsString,myTableAsStringmydata="商品信息"myTable="商品价格信息"‘建立与SQLServer数据库服务器中指定数据库的连接Setcnn=NewADODB.ConnectionWithcnn.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydata.Open
EndWith‘判断在数据库中是否有同名的数据表SetmyCat=NewADOX.CatalogSetmyCat.ActiveConnection=cnnForEachmtbInmyCat.TablesIfLCase(mtb.Name)=LCase(myTable)ThenMsgBox"数据表<"&;myTable&;">已经存在！请重新命名数据表！vbCritical",GoTohhhEndIfNext‘执行SQL语句创建数据表SQL="createtable"&;myTable_&;"(商品编号varchar(10)notnullprimarykey,"_&;"商品单价decimalnotnull)"cnn.ExecuteSQLMsgBox"数据表创建成功!",vbInformation,"创建数据表"hhh:cnn.CloseSetmyCat=NothingSetcnn=NothingEndSub
实例7-5·
从SQLServer数据库服务器中
删除数据库（删除数据库（ADO））
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_5()OnErrorGoTohhhDimcnnAsADODB.ConnectionDimcnnStrAsString,SQLAsStringDimmydataAsString,myTableAsString‘指定要删除的数据库名称mydata="商品信息"‘建立与SQLServer数据库服务器的连接Setcnn=NewADODB.ConnectionWithcnn.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER".Open
EndWith‘执行SQL语句删除指定的数据库SQL="dropdatabase"&;mydatacnn.ExecuteSQLMsgBox"数据库删除成功!",vbInformation,"删除数据库"GoToxxxhhh:MsgBoxErr.Description,vbCriticalxxx:cnn.CloseSetcnn=NothingEndSub
·分析：分析：
SQL=”dropdatabase数据库名1，数据库名2，……”‘删除指定的数据库
实例7-6·
从SQLServer数据库中删除数
据表（据表（ADO））
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_6()OnErrorGoTohhhDimcnnAsADODB.ConnectionDimcnnStrAsString,SQLAsStringDimmydataAsString,myTableAsStringmydata="商品信息"myTable="商品名录,商品价格信息"‘建立与SQLServer数据库的连接Setcnn=NewADODB.ConnectionWithcnn.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydata.OpenEndWith‘执行SQL语句删除指定的数据表SQL="droptable"&;myTablecnn.ExecuteSQL
MsgBox"数据表删除成功!",vbInformation,"删除数据表"GoToxxxhhh:MsgBoxErr.Description,vbCriticalxxx:cnn.CloseSetcnn=NothingEndSub
实例7-7·
将SQLServer数据库中的数据
工作表（导入到Excel工作表（ADO））
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_7()DimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetDimiAsLongDimmydataAsString,myTableAsStringmydata="工资管理"myTable="基本信息"‘建立与SQLServer数据库的连接Setcnn=NewADODB.ConnectionWithcnn.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydata.OpenEndWith‘打开查询数据集Setrs=NewADODB.Recordsetrs.OpenmyTable,cnn,adOpenKeyset,adLockOptimistic‘清除工作表数据Cells.Clear‘准备复制数据Withrs‘复制字段名Fori=1To.Fields.CountCells(1,i).Value=.Fields(i-1).NameNext‘复制记录Range("A2").CopyFromRecordsetrs
EndWith‘关闭数据集和数据库连接，并释放变量rs.Closecnn.CloseSetrs=NothingSetcnn=NothingEndSub
实例7-8·
将SQLServer数据库中的数据
工作表（导入到Excel工作表（DAO））
引用：microsoftdao3.6objectlibraryPublicSub7_8()DimmyWspAsDAO.WorkspaceDimcnnAsDAO.ConnectionDimrsAsDAO.RecordsetDimcnnStrAsStringDimmydataAsString,myTableAsStringDimiAsLongmydata="工资管理"myTable="基本信息"‘设置连接字符串cnnStr="ODBC;"_&;"Driver=SQLServer;"_&;"SERVER=THTFCOMPUTER;UID=sa;"_&;"PWD=;DATABASE="&;mydata&;";FILEDSN=C:"‘建立与数据库的连接SetmyWsp=CreateWorkspace("myWsp","myName","",dbUseODBC)Workspaces.AppendmyWspSetcnn=myWsp.OpenConnection(_Name:="cnnnection",_Options:=dbDriverNoPrompt,_Connect:=cnnStr)‘建立查询数据集Setrs=cnn.OpenRecordset(myTable)‘清除工作表数据Cells.Clear‘准备复制数据Withrs‘复制字段名
Fori=1To.Fields.CountCells(1,i).Value=.Fields(i-1).NameNext‘复制记录Range("A2").CopyFromRecordsetrsEndWith‘关闭数据集和数据库连接，并释放变量rs.Closecnn.ClosemyWsp.CloseSetrs=NothingSetcnn=NothingSetmyWsp=NothingEndSub
·分析：分析：
利用DAO连接SQLServer数据库的连接字符串。一般形式为：cnnStr="ODBC;"_&;"Driver=SQLServer;"_&;"SERVER=SQLServer服务器名;UID=sa;"_&;"PWD=;DATABASE=数据库名;FILEDSN=C:"建立与SQLServer数据库的连接，首先需要利用Createworkspace方法建立一个新的workspace对象：setworkspace对象变量=createworkspace(name,user,password,type)·name指定该工作区workspace对象的名称，user设置该工作区的用户名，password是用户密码，type指定类型：有jet型（dbusejet）和odbc型（dbuseodbc）本例：SetmyWsp=CreateWorkspace("myWsp","myName","",dbUseODBC)再使用workspace集合的append方法将这个workspace对象添加到workspaces集合中。workspaces.appendmywsp利用openconnection方法建立与SQLServer数据库的连接setconnection=workspace.openconnection(name,options,readonly,connect)·connection:表示DAO.connection对象变量·workspace(可选)：指定workspace对象·name：为字符串表达式，是创建的workspace对象名称·options（可选）：指定连接的名称·Readonly(可选)：表示是否为只读打开数据库。默认为F。表示可读/写数据。·connect（可选）：指定ODBC连接字符串。例：Setcnn=myWsp.OpenConnection(_Name:="cnnnection",_Options:=dbDriverNoPrompt,_Connect:=cnnStr)
·实例7-9查询获取SQLServer数据库的数据（数据（ADO））
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_9()DimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetDimiAsLongDimmydataAsString,myTableAsString,SQLAsStringmydata="工资管理"myTable="基本信息"‘建立与SQLServer数据库的连接Setcnn=NewADODB.ConnectionWithcnn.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydata.OpenEndWith‘打开查询数据集SQL="select*from"&;myTable&;"where性别='男'"Setrs=NewADODB.Recordsetrs.OpenSQL,cnn,adOpenKeyset,adLockOptimistic‘清除工作表数据Cells.Clear‘准备复制数据Withrs‘复制字段名Fori=1To.Fields.CountCells(1,i).Value=.Fields(i-1).NameNext‘复制记录Range("A2").CopyFromRecordsetrsEndWith‘关闭数据集和数据库连接，并释放变量rs.Closecnn.CloseSetrs=NothingSetcnn=NothingEndSub
·实例7-10
查询获取SQLServer数据库
的数据（的数据（DAO））
引用：microsoftdao3.6objectlibraryPublicSub7_10()DimmyWspAsDAO.WorkspaceDimcnnAsDAO.ConnectionDimrsAsDAO.RecordsetDimcnnStrAsStringDimSQLAsStringDimmydataAsString,myTableAsStringDimiAsLongmydata="工资管理"myTable="基本信息"‘设置连接字符串cnnStr="ODBC;"_&;"Driver=SQLServer;"_&;"SERVER=THTFCOMPUTER;UID=sa;"_&;"PWD=;DATABASE="&;mydata&;";FILEDSN=C:"‘建立与数据库的连接SetmyWsp=CreateWorkspace("myWsp","myName","",dbUseODBC)Workspaces.AppendmyWspSetcnn=myWsp.OpenConnection(_Name:="cnnnection",_Options:=dbDriverNoPrompt,_Connect:=cnnStr)‘建立查询数据集SQL="select*from"&;myTable&;"where性别='男'"Setrs=cnn.OpenRecordset(SQL)‘清除工作表数据Cells.Clear‘准备复制数据Withrs‘复制字段名Fori=1To.Fields.CountCells(1,i).Value=.Fields(i-1).NameNext‘复制记录Range("A2").CopyFromRecordsetrs
EndWith‘关闭数据集和数据库连接，并释放变量rs.Closecnn.ClosemyWsp.CloseSetrs=NothingSetcnn=NothingSetmyWsp=NothingEndSub
·实例7-11将工作表数据导入到SQLServer数据库（ADO）数据库（）
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_11()DimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetDimiAsLongDimmydataAsString,myTableAsString,SQLAsStringDimwbAsWorkbookDimwsAsWorksheetSetwb=ThisWorkbook‘指定工作簿Setws=wb.Sheets("sheet1")‘指定工作表名称mydata="工资管理"‘指定数据库myTable="基本信息"‘指定数据表‘建立与SQLServer数据库的连接Setcnn=NewADODB.ConnectionWithcnn.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydata.OpenEndWith‘获取要保存的记录数（行数）n=ws.Range("A65536").End(xlUp).RowFori=2Ton‘查询是否已经存在了某条记录SQL="select*from"&;myTable_&;"where职工编号='"&;Trim(ws.Cells(i,1).Value)&;"'"_
&;"and='"&;Trim(ws.Cells(i,2).Value)&;"'"_&;"and性别='"&;Trim(ws.Cells(i,3).Value)&;"'"_&;"and所属部门='"&;Trim(ws.Cells(i,4).Value)&;"'"_&;"and工资总额="&;Trim(ws.Cells(i,5).Value)_&;"and备注='"&;Trim(ws.Cells(i,6).Value)&;"'"Setrs=NewADODB.Recordsetrs.OpenSQL,cnn,adOpenKeyset,adLockOptimisticIfrs.EOFAndrs.BOFThen‘如要数据表中没有工作表的某行数据，就添加到数据表rs.AddNewForj=1Tors.Fields.Countrs.Fields(j-1)=Trim(ws.Cells(i,j).Value)Nextjrs.UpdateElse‘如果数据表中有工作表的某行数据，就将数据进行更新Forj=1Tors.Fields.Countrs.Fields(j-1)=Trim(ws.Cells(i,j).Value)Nextjrs.UpdateEndIfNextiMsgBox"数据保存完毕！",vbInformation,"保存数据"‘关闭数据库及查询数据集，并释放变量rs.Closecnn.CloseSetwb=NothingSetws=NothingSetrs=NothingSetcnn=NothingEndSub
·实例7-12
向SQLServer数据库中添加
记录的一般方法
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_12()DimcnnAsADODB.ConnectionDimcnnStrAsString,SQLAsStringDimmydataAsString,myTableAsString
mydata="商品信息"myTable="商品名录"‘建立与SQLServer数据库服务器的连接cnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;mydataSetcnn=NewADODB.Connectioncnn.ConnectionString=cnnStrcnn.Open‘为数据表添加新记录SQL="insertinto"&;myTable&;"values('1000000001','25彩电')"cnn.ExecuteSQLSQL="insertinto"&;myTable&;"values('1000000002','29彩电')"cnn.ExecuteSQLSQL="insertinto"&;myTable&;"values('2000000001','空调')"cnn.ExecuteSQLMsgBox"为数据表添加了三条记录!",vbInformation,"添加记录"cnn.CloseSetcnn=NothingEndSub
·分析：分析：
SQL=”insertinto数据表名values(字段1值，字段2值，……)”‘向SQLServer数据库中添加记录
·实例7-13Access数据库
将SQLServer数据库转换为
引用：microsoftactivexdataobjects2.xlibrary和microsoftadoext.2.xforddlandsecurityPublicSub7_13()DimcnnSQLAsNewADODB.ConnectionDimrsSQLAsNewADODB.RecordsetDimcnnDataAsNewADODB.ConnectionDimrsDataAsNewADODB.RecordsetDimmyCatAsNewADOX.CatalogDimmyTblAsNewADOX.TableDimmySQLAsString
DimmyDataAsStringDimmyTableAsStringDimmyNameAsString,myTypeAsInteger,mySizeAsIntegerDimiAsLong,jAsLong‘******查询获取SQLServer数据库服务器上指定数据库表表示全部数据******myData="商品信息"myTable="商品名录"‘建立与SQLServer数据库的连接CnnStr="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;myDataWithcnnSQL.ConnectionString=CnnStr.OpenEndWith‘查询SQLServer数据库指定数据库表的全部记录rsSQL.OpenmyTable,cnnSQL,adOpenKeyset,adLockOptimistic‘******将查询到SQLServer数据库表全部数据保存到Access数据库表******‘创建Access数据库和数据表myData=ThisWorkbook.Path&;"\商品信息.mdb"OnErrorResumeNextKillmyDataOnErrorGoTo0myCat.Create"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&;myDataWithmyTbl.Name=myTable‘指定Access数据表名Fori=0TorsSQL.Fields.Count-1myName=rsSQL.Fields(i).NamemyType=rsSQL.Fields(i).TypeIfrsSQL.Fields(i).Type=200ThenmyType=adVarWCharIfrsSQL.Fields(i).Type=135ThenmyType=adDatemySize=rsSQL.Fields(i).DefinedSize.Columns.AppendmyName,myType,mySizeNextiEndWithmyCat.Tables.AppendmyTbl‘向access数据表中添加数据SetcnnData=myCat.ActiveConnectionrsData.OpenmyTable,cnnData,adOpenKeyset,adLockOptimisticFori=1TorsSQL.RecordCountWithrsData.AddNewForj=0TorsData.Fields.Count-1
.Fields(j)=rsSQL.Fields(j).ValueNextj.UpdateEndWithrsSQL.MoveNextNextiMsgBox"已经成功将SQLServer数据库数据保存为Access数据库！"&;vbCrLf_&;"数据库名为：<"&;Mid(myData,Len(ThisWorkbook.Path)+2)&;">"_&;vbCrLf&;"数据表名为：<"&;myTable&;">",vbInformation‘******关闭记录集与数据库的连接******rsSQL.ClosecnnSQL.ClosersData.ClosecnnData.Close‘释放变量SetrsSQL=NothingSetcnnSQL=NothingSetrsData=NothingSetcnnData=NothingEndSub
·实例7-14Server数据库
将access数据库转换为SQL
引用：microsoftactivexdataobjects2.xlibraryPublicSub7_14()DimcnnSQLAsNewADODB.ConnectionDimrsSQLAsNewADODB.RecordsetDimcnnDataAsNewADODB.ConnectionDimrsDataAsNewADODB.RecordsetDimmySQLAsStringDimmyDataAsStringDimmyTableAsStringDimmyNameAsString,myTypeAsInteger,mySizeAsIntegerDimiAsLong,jAsLongDimCnnStrAsString,SQLAsStringmyData="职工管理"myTable="职工基本信息"'********查询Access数据库********WithcnnData
.Provider="Microsoft.Jet.OLEDB.4.0".OpenThisWorkbook.Path&;"\"&;myData&;".mdb"EndWithrsData.OpenmyTable,cnnData,adOpenKeyset,adLockOptimistic'********创建SQLServer数据库和数据表********CnnStr="Provider=SQLOLEDB.1;UserID=sa;DataSource=THTFCOMPUTER"WithcnnSQL.ConnectionString=CnnStr.OpenEndWith'删除同名数据库OnErrorResumeNextSQL="dropdatabase"&;myDatacnnSQL.ExecuteSQLOnErrorGoTo0'创建新数据库SQL="createdatabase"&;myDatacnnSQL.ExecuteSQLcnnSQL.Close'建立与数据库的连接WithcnnSQL.ConnectionString="Provider=SQLOLEDB.1;"_&;"UserID=sa;"_&;"DataSource=THTFCOMPUTER;"_&;"InitialCatalog="&;myData.OpenEndWith'执行SQL语句创建数据表SQL="createtable"&;myTable&;"("Fori=0TorsData.Fields.Count-1SQL=SQL&;rsData.Fields(i).NameIfrsData.Fields(i).Type=adVarWChar_OrrsData.Fields(i).Type=adCharThenSQL=SQL&;"varchar("&;rsData(i).DefinedSize&;"),"ElseIfrsData.Fields(i).Type=adDateThenSQL=SQL&;"datetime,"ElseIfrsData.Fields(i).Type=adCurrencyThenSQL=SQL&;"money,"ElseIfrsData.Fields(i).Type=adSingle_OrrsData.Fields(i).Type=adDoubleThenSQL=SQL&;"real,"ElseIfrsData.Fields(i).Type=adIntegerThenSQL=SQL&;"int,"EndIf
NextiSQL=Left(SQL,Len(SQL)-1)&;")"cnnSQL.ExecuteSQL'查询数据表rsSQL.OpenmyTable,cnnSQL,adOpenKeyset,adLockOptimistic'将Access数据库数据保存到SQLServer数据库Fori=1TorsData.RecordCountWithrsSQL.AddNewForj=0TorsSQL.Fields.Count-1.Fields(j)=rsData.Fields(j).ValueNextj.UpdateEndWithrsData.MoveNextNextiMsgBox"已经成功将Access数据库数据保存为SQLServer数据库！"&;vbCrLf_&;"数据库名为：<"&;myData&;">"_&;vbCrLf&;"数据表名为：<"&;myTable&;">",vbInformationrsSQL.ClosecnnSQL.ClosersData.ClosecnnData.CloseSetrsSQL=NothingSetcnnSQL=NothingSetrsData=NothingSetcnnData=NothingEndSub
