连接ADO的代码是多少？

希望123456

要那个后期绑定的代码，看视频那个太模糊了，而且又那么长？谁给个代码复制一下？

hl19881005

路过看看，学习一下！

静听溪流

1. Sub CreateConnection()
   
2.     Dim cnADO As New ADODB.Connection
   
3.     Dim strPath As String
   
4.     strPath = ThisWorkbook.Path & "\员工管理.accdb"
   
5.     On Error GoTo ErrMsg
   
6.     cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
   
7.     If cnADO.State = adStateOpen Then
   
8.         MsgBox "数据库连接成功！" & vbCrLf & _
   
9.             vbCrLf & "ADO版本为：" & cnADO.Version & vbCrLf & _
   
10.             vbCrLf & "Connection对象提供者名称：" & cnADO.Provider
    
11.         cnADO.Close
    
12.         Set cnADO = Nothing
    
13.     Else
    
14.         MsgBox "数据库连接失败！"
    
15.     End If
    
16.     Exit Sub
    
17. ErrMsg:
    
18.     MsgBox Err.Description, , "错误报告"
    
19. End Sub
    
20. 
    
21. 
    
22. Sub CreateConnectionQuery()
    
23.     Dim cnADO As Object
    
24.     Dim strPath As String
    
25.     strPath = ThisWorkbook.Path & "\员工管理.accdb"
    
26.     Set cnADO = CreateObject("ADODB.Connection")
    
27.     On Error GoTo ErrMsg
    
28.     With cnADO
    
29.         .Provider = "Microsoft.ACE.OLEDB.12.0"
    
30.         .ConnectionTimeout = 100
    
31.         .Open strPath
    
32.     End With
    
33.     If cnADO.State = 1 Then
    
34.         MsgBox "数据库连接成功！" & vbCrLf & _
    
35.             vbCrLf & "ADO版本为：" & cnADO.Version & vbCrLf & _
    
36.             vbCrLf & "Connection对象提供者名称：" & cnADO.Provider
    
37.         cnADO.Close
    
38.         Set cnADO = Nothing
    
39.     Else
    
40.         MsgBox "数据库连接失败！", vbInformation, "连接数据库"
    
41.     End If
    
42.     Exit Sub
    
43. ErrMsg:
    
44.     MsgBox Err.Description, , "错误报告"
    
45. End Sub
    

复制代码

希望123456

静听溪流 发表于 2023-5-31 22:16

这是前期绑定吗？我做字典前期绑定好了，我想改成后期绑定的，报错了！后来重新安装office才解决问题！所以这次我怕这个ado也会这样，直接用后期绑定也可以的吧？

希望123456

静听溪流 发表于 2023-5-31 22:16

我看视频的时候，他上面说，如果要引用的excel作为外部数据库，好像要加一句什么来着？

静听溪流

希望123456 发表于 2023-5-31 22:33
这是前期绑定吗？我做字典前期绑定好了，我想改成后期绑定的，报错了！后来重新安装office才解决问题！所 ...

第一个前期
第二个后期

约定的童话

连接ADO需要使用VBA中的ADODB对象。下面是一个基本的连接ADO的VBA代码示例：

复制
Sub ConnectToDatabase()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
   
    '设置连接字符串
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Test\Database.accdb;Persist Security Info=False;"
   
    '打开连接
    conn.Open
   
    '执行SQL语句
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM Table1", conn
   
    '处理查询结果
    Do While Not rs.EOF
        Debug.Print rs.Fields("Field1").Value
        rs.MoveNext
    Loop
   
    '关闭连接
    rs.Close
    conn.Close
End Sub
在上面的代码中，首先创建了一个ADODB.Connection对象，并设置连接字符串。然后使用Open方法打开连接，执行SQL查询语句并将结果存储在ADODB.Recordset对象中。最后处理查询结果并关闭连接。

请注意，连接字符串的具体设置取决于你要连接的数据库类型和位置。在上面的示例中，使用的是Microsoft Access数据库。你需要将"Data Source"参数设置为你的数据库文件路径，并根据需要修改其他参数。

xinhunter

VBA也有前期和后期的区别吗？ VBA是解释执行不是编译执行，能解释就能执行，不能解释就不能执行，没有什么前期后期。编译执行的代码才需要分前期后期，使用后期绑定是怕编译电脑缺少某个部件导致编译出错。

希望123456

约定的童话 发表于 2023-6-1 07:42
连接ADO需要使用VBA中的ADODB对象。下面是一个基本的连接ADO的VBA代码示例：

复制

Dim cnADO As Object
'建立连接对象
Set cnADO = CreateObject("ADODB.Connection")
'连接到当前工作表中的数据源 ThisWorkbook.Path & "\数据库.xlsx"
cnADO.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 xlsm;HDR=YES"""
  If cnADO.State = 1 Then
  MsgBox "数据库连接成功！"
  Else
  MsgBox "数据库连接失败！"
  End If
coADO.Close
Set coADO = Nothing

希望123456

xinhunter 发表于 2023-6-1 09:45
VBA也有前期和后期的区别吗？ VBA是解释执行不是编译执行，能解释就能执行，不能解释就不能执行，没有什么 ...

出现找不到可安装的ISAM，啥意思？Dim cnADO As Object
'建立连接对象
Set cnADO = CreateObject("ADODB.Connection")
'连接到当前工作表中的数据源 ThisWorkbook.Path & "\数据库.xlsx"
cnADO.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 xlsm;HDR=YES"""
  If cnADO.State = 1 Then
  MsgBox "数据库连接成功！"
  Else
  MsgBox "数据库连接失败！"
  End If
coADO.Close
Set coADO = Nothing