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

实例7-1 判断SQL Server 数据库是否存在 （ADO ） 引用：microsoft activex data objects 2.x library Public Sub7_1() Dim cnn As ADODB.Connection Dim cnnStr As String Dim mydata As String mydata = 商品信息 ‘创建与SQL Server 数据库服务器连接的Connection 对象 Set cnn = New ADODB.Connect