在 vba-excel 和 Sql 查询方面需要帮助

Question

vba ADO 和 Sql 查询中的疑问...

我有 2 张工作表，即 adodc1，adodc2（在一个工作簿中）

在 adodc1 中有“Name”、“Dept”列，有时它有“Sect”列

在 adodc2 中有"Name","Dept","sect" 列

我想要的是当我运行 Query..Vba 需要检查 adodc1 是否有 Sect 列..如果它有联合，则两张纸通常有其他

想要返回空值..

以下代码取自“”，根据我的需要进行了修改

它将做的是两个工作表中的联合名称和部门列..现在我想查询 adodc1 是否有列“sect”..如果它有

union "Sect" 像往常一样 else .. union 作为空值

Sub connecttoexcel()

Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

strFile = ActiveWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0 XML;HDR=Yes;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
'here i want some stuff
strSQL = "Select Name, Dept from [Adodc1$] Union Select Name, Dept from [Adodc2$];"
rs.Open strSQL, cn
Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset rs
Set rs = Nothing
End Sub

Answer 1

vba需要检查adodc1是否有Sect列

我建议您使用 Connection 对象的OpenSchema 方法来发现列是否存在，例如类似：

Set rs = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Adodc1$")
rs.Filter = "COLUMN_NAME = 'Sect'"
If rs.RecordCount = 1 Then
   ' Column exists
   ...

当涉及到检查 50 列时，我认为会更加困难......

rs.Filter = "COLUMN_NAME = 'Sect' OR COLUMN_NAME = 'Name' OR COLUMN_NAME = 'Dept' ...

或使用数组等在循环中测试每个。

是否可以在sql查询中使用NZ函数

NZ() 函数不是 Access SQL 的函数，它是这里用来访问 Excel 数据的函数。相反，它是 MS Access 对象模型的一部分。简而言之，除非您从 Access VBA 项目运行它，否则 NZ() 不可用。但是解决方法很简单，例如

Nz(Dept, '{{NONE}}')

效果和

一样

IIF(Dept IS NULL, '{{NONE}}', Dept)

我读过 Access MVP（艾伦布朗？）说这比 Nz() 更可取。