EXCEL ADO连接ACCESS的联合查询SQL语句问题

zhaogang1960

dffddd 发表于 2015-10-14 18:56
谢谢，那ADO用在哪？

当然是对数据库的各种操作，在ExcelVBA中也可以使用，用来操作数据库，或工作簿(当然这时把工作簿当作数据库来处理)

dffddd

zhaogang1960 发表于 2015-10-14 20:18
当然是对数据库的各种操作，在ExcelVBA中也可以使用，用来操作数据库，或工作簿(当然这时把工作簿当作数 ...

ado和sql都是用来操作数据库，是不是？

zhaogang1960

dffddd 发表于 2015-10-14 20:59
ado和sql都是用来操作数据库，是不是？

ADO是接口，SQL是语言，前者要使用后者来操作数据库，你也可以不用ADO，而是用DAO，DAO也可以使用SQL语言操作数据库，下面两个是ADO、DAO删除字段的程序：

1. Sub ADO删除字段()
   
2.     On Error GoTo hhh
   
3.     Dim mydata As String, myTable As String, SQL As String
   
4.     Dim cnn As ADODB.Connection
   
5.     Dim rs As ADODB.Recordset
   
6.     mydata = ThisWorkbook.Path & "\职工管理.mdb"
   
7.     myTable = "职工基本信息"
   
8.     If MsgBox("本操作将删除数据表字段!" & vbCrLf & "是否要删除字段?", _
   
9.         vbQuestion + vbYesNo, "删除字段") = vbNo Then Exit Sub
   
10.     Set cnn = New ADODB.Connection
    
11.     With cnn
    
12.         .Provider = "microsoft.jet.oledb.4.0"
    
13.         .Open mydata
    
14.     End With
    
15.     Dim myArray As Variant
    
16.     myArray = Array("工资", "备注")
    
17.     For i = 0 To UBound(myArray)
    
18.         SQL = "alter table " & myTable & " drop " & myArray(i)
    
19.         Set rs = cnn.Execute(SQL)
    
20.     Next i
    
21.     MsgBox "已经将数据表的两个<工资>和<备注>删除", vbInformation
    
22.     cnn.Close
    
23.     Set rs = Nothing
    
24.     Set cnn = Nothing
    
25.     Exit Sub
    
26. hhh:
    
27.     MsgBox Err.Description, vbCritical
    
28. End Sub
    

复制代码

1. Sub DAO删除字段()
   
2.     On Error GoTo hhh
   
3.     Dim mydata As String, myTable As String, SQL As String
   
4.     Dim myDb As DAO.Database
   
5.     mydata = ThisWorkbook.Path & "\职工管理.mdb"
   
6.     myTable = "职工基本信息"
   
7.     If MsgBox("本操作删除数据表字段!" & vbCrLf & "是否要删除字段?", _
   
8.         vbQuestion + vbYesNo, "删除字段") = vbNo Then Exit Sub
   
9.     Set myDb = OpenDatabase(mydata)
   
10.     SQL = "alter table " & myTable & " drop 工资"
    
11.     myDb.Execute (SQL)
    
12.     SQL = "alter table " & myTable & " drop 备注"
    
13.     myDb.Execute (SQL)
    
14.     MsgBox "已经将数据表的两个字段<工资>和<备注>删除!", vbInformation
    
15.     myDb.Close
    
16.     Set myDb = Nothing
    
17.     Exit Sub
    
18. hhh:
    
19.     MsgBox Err.Description
    
20. End Sub
    

复制代码

runzy

赵老师总是一如既往的在帮助我们

qinyu0745

学习了，变通的用法。