请教关于ADO的问题

Cary1018

0wSBrRvD.rar (12.33 KB, 下载次数: 15)

2007-1-6 01:05 上传

点击文件名下载附件
请教关于ADO的问题

首先，我是不会用ADO的，正在学习中，附件的代码是从ExcleHome的其它贴子里得到的，不过我想改一下，达到我想要的效果（如附件中代码标注所示），请各位不吝赐教，若可以，请注明每一句代码的意思，在此谢过先。

向您问好

你的意图难以吃透，本代码中已经用上了SQL查询语句，而且查找速度很快，为什么还要用vlookup查找函数，不是重叠了吗，你的意思是不是想增加查找条件，即不是查找全部记录，而是查符合某条件的数据，那么在sql查找代码后面可接上　where　条件1

爱歌学习

Sub ADOstudy()
    Dim szSQL As String
    Set szConnect = CreateObject("ADODB.connection")
    SourceFile = ThisWorkbook.FullName
    SourceSheet = "RAW"
    szConnect.Open = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=No';data source=" & SourceFile
    szSQL = "SELECT qty FROM (SELECT f1 AS name1 FROM [表2$] ) AS A " & _
            "LEFT JOIN " & _
            "(SELECT f1 AS name2,f2 AS qty FROM [" & SourceSheet & "$] ) AS B ON A.name1=B.name2"
    ThisWorkbook.Sheets("表2").[B1].CopyFromRecordset szConnect.Execute(szSQL)
    szConnect.Close: Set szConnect = Nothing
End Sub

因为要在另一表中查询与“表2”第1列相对应的另一列值，所以表2第1列为基准列，

我们可以先用语句 SELECT f1 AS name1 FROM [表2$]  将它取出；

而语句

SELECT f1 AS name2, f2 AS qty FROM [" & SourceSheet & "$]

可以取出SourceSheet表中的两列，要想让第2列(即qty) 在基准列(表2第1列)的旁边(表2第2列)放置的时候能与基准列的项目一一对应，就可以使用 LEFT JOIN 语句；

SELECT qty FROM (SELECT f1 AS name1 FROM [表2$] ) AS A " & _
            "LEFT JOIN " & _
            "(SELECT f1 AS name2,f2 AS qty FROM [" & SourceSheet & "$] ) AS B ON A.name1=B.name2

它的效果就是以 LEFT JOIN 语句左边的查询序列为基准，显示第一个 SELECT 后所指定的字段值，这个字段值可以是其后任意一个查询语句结果中的字段值，本例中即为“qty”。这个qty的排列就会以表2第1列为基准，与第1列是一一对应的了。

Lj89coWB.rar (13.59 KB, 下载次数: 33)

2007-1-6 08:48 上传

点击文件名下载附件

[此贴子已经被作者于2007-1-6 8:48:34编辑过]

向您问好

哦，原来是输入A列，则显示B列值，爱歌老师的LEFT JOIN 语句真神奇。

我也有个例子用数据字典实现，不用点击按钮就能够输入A列，则自动显示B列值

Cary1018

QUOTE:

以下是引用向您问好在2007-1-6 10:05:04的发言：

哦，原来是输入A列，则显示B列值，爱歌老师的LEFT JOIN 语句真神奇。

我也有个例子用数据字典实现，不用点击按钮就能够输入A列，则自动显示B列值

1》.???，向您学习！！

2》.谢谢爱歌老师。