SQL语句求助

endend1980

sql语句求助.rar (9.2 KB, 下载次数: 16)

2014-3-1 14:44 上传

点击文件名下载附件

endend1980

不知道我表达清楚了没有，咋没人回复啊？

onthetrip

表1的T2字段重复不？

endend1980

onthetrip 发表于 2014-3-1 16:11
表1的T2字段重复不？

不重复
谢谢，再帮我看看啊

zhaogang1960

请参考：

1. select T1,T3 from [Sheet1$A2:B6] a left join (select T2,first(T3) as T3 from [Sheet1$D2:E12] group by T2) b on a.T2=b.T2

复制代码

zhaogang1960

或用VBA+SQL：

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
   
5.     SQL = "select T1,T3 from [Sheet1$A2:B6] a left join (select T2,first(T3) as T3 from [Sheet1$D2:E12] group by T2) b on a.T2=b.T2"
   
6.     Range("g3").CopyFromRecordset cnn.Execute(SQL)
   
7.     cnn.Close
   
8.     Set cnn = Nothing
   
9. End Sub
   

复制代码

endend1980

zhaogang1960 发表于 2014-3-1 18:20
或用VBA+SQL：

谢谢版主，我这就去试试。

endend1980

zhaogang1960 发表于 2014-3-1 18:20
或用VBA+SQL：

BZ，还请再帮我看看，我的数据源在sql server数据库里放着，我要从它那里面读数据，因为要模仿效果，所以我的附件都是用excel做的，您给我代码以excel做数据库能达到效果，但是读sql server数据不行，提示没有first函数，我在网上搜索了下，sql server没有first函数，可以用top 1代替，但是直接用top 1 代替first不能运行，您能帮我再改下吗？谢谢~~

zhaogang1960

endend1980 发表于 2014-3-3 12:49
BZ，还请再帮我看看，我的数据源在sql server数据库里放着，我要从它那里面读数据，因为要模仿效果，所以 ...

我没有用过sql server，好像VBA+SQL中的Top不是这个意思，下面代码你测试一下，Excel中不正确：

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
   
5.     SQL = "select T1,T3 from [Sheet1$A2:B6] a left join (select top 1 T2,T3  from [Sheet1$D2:E12]) b on a.T2=b.T2"
   
6.     Range("g3").CopyFromRecordset cnn.Execute(SQL)
   
7.     cnn.Close
   
8.     Set cnn = Nothing
   
9. End Sub
   

复制代码

没名字了

SELECT a.T1, b.T3 FROM 表1 a,表2 b LEFT JOIN 表2 ON a.T2=B.T2 ORDER BY a.T1

我也是刚学，不知道这样行不行