如何在VBA Excel中執行SQL查詢

Question

Sub Run() 

    Call ConnectDB 

    Dim Cmd As ADODB.Command 
    Dim rcs As ADODB.Recordset 
    Dim SQL As String 
    Dim res() As String 

    Set Cmd = New ADODB.Command 
    Set Cmd.ActiveConnection = con 

    SQL = "select tl.id, al.price_crossing, al.price_exchange_fees, tl.charges_execution, tl.charges_mariana, tl.charges_exchange, tl.trade_date, un.value, tl.nb_crossing from mfb.trade_leg tl" & _ 
    "inner join mfb.trade t on t.id = tl.id_trade" & _ 
    "inner join mfb.instrument i on t.id_instrument = i.id" & _ 
    "inner join mfb.instrument_type it on it.id = i.id_instrument_type" & _ 
    "inner join mfb.options o on o.id_instrument = i.id" & _ 
    "inner join mfbref.mfb.underlying un on un.id = o.id_underlying" & _ 
    "inner join mfb.allocation_leg al on al.id_trade_leg = tl.id" & _ 
    "where tl.trade_date > '20160101' and t.state = 3" 

    Cmd.CommandText = SQL 
    Set rcs = Cmd.Execute() 

每當我執行此代碼時，出現調試錯誤，提示'tl'附近的語法不正確。我嘗試以不同的方式執行SQL，但錯誤不會改變

Answer 1

SQL = "select tl.id, al.price_crossing, al.price_exchange_fees, tl.charges_execution, tl.charges_mariana, tl.charges_exchange, tl.trade_date, un.value, tl.nb_crossing from mfb.trade_leg AS tl " & _ 
"inner join mfb.trade t on t.id = tl.id_trade " & _ 
"inner join mfb.instrument i on t.id_instrument = i.id " & _ 
"inner join mfb.instrument_type it on it.id = i.id_instrument_type " & _ 
"inner join mfb.options o on o.id_instrument = i.id " & _ 
"inner join mfbref.mfb.underlying un on un.id = o.id_underlying " & _ 
"inner join mfb.allocation_leg al on al.id_trade_leg = tl.id " & _ 
"where tl.trade_date > '20160101' and t.state = 3 " 

Answer 2

將別名分配給SQL對象時應使用「as」。

嘗試改變

 ...from mfb.trade_leg tl... 
    ...join mfb.trade t... 
    ...join mfb.options o ... 

到

 ...from mfb.trade_leg as tl... 
    ...join mfb.trade as t... 
    ...join mfb.options as o ... 

Answer 3

SQL = "select tl.id, al.price_crossing, al.price_exchange_fees, tl.charges_execution, tl.charges_mariana, tl.charges_exchange, tl.trade_date, un.value, tl.nb_crossing from mfb.trade_leg tl " & _ 
"inner join mfb.trade t on t.id = tl.id_trade " & _ 
"inner join mfb.instrument i on t.id_instrument = i.id " & _ 
"inner join mfb.instrument_type it on it.id = i.id_instrument_type " & _ 
"inner join mfb.options o on o.id_instrument = i.id " & _ 
"inner join mfbref.mfb.underlying un on un.id = o.id_underlying " & _ 
"inner join mfb.allocation_leg al on al.id_trade_leg = tl.id " & _ 
"where tl.trade_date > '20160101' and t.state = 3;" 

你冷落噸的空間