SQL语句求助

莫悠悠

Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.代码,b2.名称 from [流向$] b1 & [阶段$] b2 where b1.代码=b2.代码 "
Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.代码,b2.名称 from [流向$] b1 LEFT JOIN ON b1.代码=b2.代码."
Sql = "select b2.代码,b2.名称,b2.5日涨跌,b2.10日涨跌,b2.20日涨跌,b2.60日涨跌 from [阶段$] b2"
以上都无法执行，只有下面这句可以执行
Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率 from [流向$] b1"


SQL脚本如下，请问要实现两个表数据关联，脚本应该怎样改？

莫悠悠

Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.5日涨跌,b2.10日涨跌,b2.20日涨跌,b2.60日涨跌 from [流向$] b1 , [阶段$] b2 where b1.代码=b2.代码 "

microyip

1. Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.代码,b2.名称 from [流向$] b1 LEFT JOIN [阶段$] b2 ON b1.代码=b2.代码"

复制代码

莫悠悠

microyip 发表于 2020-2-13 19:13

Sub hebing()
Dim CN As Object, Sql As String, K As Currency, J As Currency
Set CN = CreateObject("ADODB.Connection")
'K = WorksheetFunction.Large(Sheets(1).Range("A2:A" & Sheets(1).[A65536].End(3).Row), 100)
'J = WorksheetFunction.Large(Sheets(2).Range("A3:A" & Sheets(1).[A65536].End(3).Row), 100)
CN.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
'SQL = "SELECT * FROM [SHEET1$A1:AL] WHERE 换手 > 0.05 AND (量比 BETWEEN 2 AND 5)   AND 涨幅 >=" & K & " AND 委比 >=" & J
'SQL = "select [流向$].代码,[流向$].名称,[流向$].最新价,[流向$].涨跌幅,[流向$].换手率,[阶段$].5日涨跌,[阶段$].10日涨跌,[阶段$].20日涨跌,[阶段$].60日涨跌 from [流向$] where [流向$].代码=[阶段$].代码"
    'Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.5日涨跌,b2.10日涨跌,b2.20日涨跌,b2.60日涨跌 from [流向$] as b1,[阶段$] as b2 where b1.代码=b2.代码"
    'Sheets(3).Range("A2").CurrentRegion = ""
    'Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.代码,b2.名称,b2.5日涨跌,b2.10日涨跌,b2.20日涨跌,b2.60日涨跌 from [流向$] b1 , [阶段$] b2 where b1.代码=b2.代码 "
    'Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.涨跌5日 from [流向$] b1 , [阶段$] b2 where b1.代码=b2.代码 "
    Sql = "select b1.代码,b1.名称,b1.最新价,b1.涨跌幅,b1.换手率,b2.涨跌5日,b2.涨跌10日,b2.涨跌20日,b2.涨跌60日 from [流向$] b1 LEFT JOIN [阶段$] b2 ON b1.代码=b2.代码"
    Sheets(3).Range("A2").CopyFromRecordset CN.Execute(Sql)
    CN.Close ',b2.涨跌5日,b2.涨跌10日,b2.涨跌20日,b2.涨跌60日
Set CN = Nothing
End SUB
多了一个逗号，可以执行了，谢谢

莫悠悠

大概知道是什么原因了
b2.5日涨跌,b2.10日涨跌,b2.20日涨跌,b2.60日涨跌
这里的格式应该无法识别，换为：b2.涨跌5日,b2.涨跌10日,b2.涨跌20日,b2.涨跌60日
就可以执行了