VBA连接Access数据库调用过程出现的问题

jary_yuan

我想在用VBA新建一个Acess数据库文件，并在新建的文件里面创建一章表。
在一个过程里容易实现，代码如下（07才能运行）

1. Sub CrTaAcc()
   
2. 
   
3.     Dim Ca As ADOX.Catalog, Cnt As ADODB.Connection, Sql As String, Name As String
   
4. 
   
5.     Name = "NewCreate.mdb"
   
6.     Sql = "create table SalesDem(SalesCode integer,SalesDecr varchar,Quantity float)"
   
7. 
   
8.     Set Ca = New ADOX.Catalog
   
9.     Ca.Create "Provider=Microsoft.Jet.Oledb.4.0;" & _
   
10.               "Data Source=" & ThisWorkbook.Path & "" & Name
    
11.     Set Cnt = New ADODB.Connection
    
12.     Cnt.ConnectionString = Ca.ActiveConnection
    
13. 
    
14.     Cnt.Open
    
15.     If Cnt.State = adStateOpen Then
    
16.         Cnt.Execute Sql
    
17.         MsgBox "The DB " & Name & " is created successfully in " & ThisWorkbook.Path
    
18.     Else
    
19.         MsgBox "Something is wrong Check it !"
    
20.     End If
    
21. 
    
22. End Sub

复制代码

现在我想通过过程调用来实现以上步骤。第一个过程用来打开与数据库的连接，第二个过程通过调用第一个过程打开数据库，然后写入数据。
第一个过程如下：

1. Sub Cn2Acc()
   
2.     Dim Cnt As ADODB.Connection, Sql As String
   
3.     Set Cnt = New ADODB.Connection
   
4.     Cnt.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
   
5.                            "Data Source=F:\MyOffs\MyAcc\Access 2010 Essential Training\Exercise Files\Chapter 13\ForCnt.mdb"
   
6.     Cnt.Open
   
7.     If Cnt.State = adStateOpen Then
   
8.         MsgBox "Connect Successfully"
   
9.        ' Cnt.Close
   
10.     Else
    
11.         MsgBox "Try again !"
    
12.     End If
    
13.     'Set Cnt = Nothing
    
14. End Sub
    

复制代码

在第二个过程引用第一个过程以后，如何获得已经打开的数据库的操作权？

1. Sub CreTab()
   
2.     Dim Sql As String
   
3.     Sql = "create table SalesDem(SalesCode integer,SalesDecr varchar,Quantity float)"
   
4.     Cn2Acc
   
5.     '执行到这里的时候应该已经打开了数据库文件ForCnt.mdb的连接，怎样来获得当前已经打开的数据库的操作权呢？
   
6.     '接下来应该怎样执行 Sql
   
7.     '？.Excute Sql
   
8. End Sub
   

复制代码

jary_yuan

{:soso_e115:}没人回答啊...

鱼求雨

附件发上来,试试看,谢谢!

jary_yuan

鱼求雨 发表于 2012-2-23 16:10
附件发上来,试试看,谢谢!

其实附件应该没什么用的，这是我学习的时候想出来的问题，
我在想有没有AcvtiveConnectiong这类的对象来获取当前连接的数据库，谢谢..一起看看啊