Question

从access 打开sql server数据库

Sub test()
Dim con As New Connection
Dim data As New ADODB.Recordset
Dim sql As String
con.Open "UID=sa;PWD=Cw_123;Driver={SQL Server};Server=********************;Database=BoloniBudgetControlSystem;dsn=,,Connection=adConnectAsync"
sql = "select * from Departments$ "
data.Open sql, con, adOpenKeyset, adLockOptimistic
Debug.Print data.Fields(3)
data.Close
con.Close
Set data = Nothing
Set con = Nothing
End Sub

代码如上。这个是excel的代码，但是access 的 new connection 没有open方法，所以不知道该怎么办了，求大神指教。

Answer 1

你好：

你列出的是VBA的代码，不过ACCESS有自带的链接功能，Access本身是没有代码变成的，它只是一个存储数据的小型数据库而已，要进行连接不同的开发语言，语句语法是不同的，我来说一下Access利用其自带的链接功能,设置链接Sql Server服务器中已有的数据库。

1. 打开菜单栏-文件-获取外部数据-链接表，数据类型选择最后一个ODBC数据库。
   

   

2. 选择机器数据源-新建，用户数据源和系统数据源的区别在于，系统数据源是登录这个机的所有用户都可见。
   

   

3. 选择SQL Serve
   

   

4. 完成后设置数据库名字和服务器。
   

   

5. 下一步，配置登录方式，用密码方式还是本地登录。再下一步，“更改默认数据库”，再下一步，根据自己的需要进行修改，比如加密等等，直到玩成。最后测试一下数据库。
   

   

6. 双击一下我们刚才创建的数据库，然后确定，确定，即可。
   

   

追问

可是我想用access作为UI 层和逻辑层，sqlserver 作为DB层去开发数据库。这似乎只能用代码来打开sql server 数据库

追答

Dim strSQL As String
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Cnn.ConnectionString = "DRIVER={SQL SERVER};SERVER=192.168.0.113;DATABASE=Test;UID=sa;PWD=000 "

Cnn.Open

你后写OPEN试试。

Answer 2

什么错误呢？
Dim con As New ADODB.Connection
要先引用ADO

追问

那句改成了 dim con as ADODB.connection
ADO也引用了，用的是6.0版
对象变量或with块变量未设置。con.open那句出的错

追答

这个错误提示看不出什么问题，需要更多的信息才能找到问题。