Come posso aggirare Excel in modo anomalo con determinate istruzioni SELECT?

Question

Queste due istruzioni sono simili ma la seconda causa l'arresto anomalo di Excel ogni volta che viene eseguito. L'unica differenza è tra il model e model return updated rows (ho appositamente progettato questo esempio minimo in modo che le query restituiscono gli stessi dati in entrambi i casi, il mio SQL mondo reale è diverso, naturalmente):

1. select * 
   from(select * 
        from (select 1 id, 100 val from dual 
         union all 
         select 2 id, 200 val from dual) 
        model 
        dimension by (id) 
        measures (val) 
        rules (val[1] = val[cv()]+1)) 
   where val=101 
   

2. select * 
   from(select * 
        from (select 1 id, 100 val from dual 
         union all 
         select 2 id, 200 val from dual) 
        model return updated rows 
        dimension by (id) 
        measures (val) 
        rules (val[1] = val[cv()]+1)) 
   where val=101 
   

è questo un esempio isolato di un bug in ADO o c'è una classe nota di istruzioni SQL che fanno cadere il parser (io non sono nemmeno sicuro perché ADO sarebbe analizzare l'istruzione, piuttosto che solo di passaggio è t attraverso il database).

Ecco il codice VBA in pieno per la versione che si blocca:

Option Explicit 
Sub Go() 

    Dim lConn As ADODB.Connection 
    Dim lRecordset As ADODB.Recordset 
    'Dim lRecordset 
    Dim sSQL As String 

    Set lConn = New ADODB.Connection 
    Set lRecordset = New ADODB.Recordset 
    'Set lRecordset = CreateObject("ADODB.Recordset") 

    lConn.Open "Provider=MSDAORA;Data Source=(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=devdb)(PORT=1521)))(CONNECT_DATA=(SID=oracle)(SERVER=DEDICATED)));User Id=csuk;Password=thisisnotmyrealpassword;" 

    With lRecordset 
     sSQL = "select * " & _ 
       "from(select * " & _ 
       "  from (select 1 id, 100 val from dual " & _ 
       "    Union all " & _ 
       "    select 2 id, 200 val from dual) " & _ 
       "  model return updated rows " & _ 
       "  dimension by(id) " & _ 
       "  measures (val) " & _ 
       "  rules (val[1] = val[cv()]+1)) " & _ 
       "where val=101" 
     .Open sSQL, lConn 
     While Not .EOF 
      Sheets(1).Cells(1, 1) = ![Val] 
      .MoveNext 
     Wend 
     .Close 
    End With 

    Set lRecordset = Nothing 
    lConn.Close 
    Set lConn = Nothing 

End Sub 

---

In risposta a un commento, ho provato lo stesso SQL utilizzando DAO, e al mio stupore, abbiamo ottieni lo stesso risultato. Il seguente codice si blocca Excel, ma la rimozione del return updated rows è tutto quello che serve per farlo funzionare come previsto:

Option Explicit 
Sub Go() 

    Dim lWorkspace As DAO.Workspace 
    Dim lDatabase As DAO.Database 
    Dim lRecordset As DAO.Recordset 

    Dim sSQL As String 

    sSQL = "select * " & _ 
      "from(select * " & _ 
      "  from (select 1 id, 100 val from dual " & _ 
      "    Union all " & _ 
      "    select 2 id, 200 val from dual) " & _ 
      "  model return updated rows " & _ 
      "  dimension by(id) " & _ 
      "  measures (val) " & _ 
      "  rules (val[1] = val[cv()]+1)) " & _ 
      "where val=101" 

    Set lWorkspace = DBEngine.Workspaces(0) 
    Set lDatabase = lWorkspace.OpenDatabase("", False, False, "Driver={Microsoft ODBC for Oracle};Server=devdb:1521/oracle;Uid=charts_csuk_uksoft;Pwd=thisisnotmyrealpassword;") 
    Set lRecordset = lDatabase.OpenRecordset(sSQL, dbOpenDynaset, dbSQLPassThrough) 

    With lRecordset 
     While Not .EOF 
      Sheets(1).Cells(1, 1) = ![Val] 
      .MoveNext 
     Wend 
    End With 

    Set lRecordset = Nothing 
    Set lDatabase = Nothing 
    Set lWorkspace = Nothing 

End Sub 

Answer 1

questo è più di una soluzione, rispetto alla soluzione, ma potrebbe essere un'opzione per nascondere eventuali istruzioni SQL, ADO sconvolgente (o Excel, per quella materia), dietro VIEW. Per le istruzioni dinamiche (ovvero, la modifica delle visualizzazioni in fase di esecuzione) è possibile prendere in considerazione l'utilizzo di procedure con EXECUTE IMMEDIATE CREATE OR REPLACE VIEW ... in esse.

Answer 2

È possibile evitare la sintassi fastidioso con la costruzione di una versione personalizzata di return updated rows.

Aggiungi una colonna falso per tenere traccia di ciò che è stato aggiornato e inizializzarlo su falso (0). Quindi aggiungi una misura e per ogni regola crea una regola simile che imposterà il flag su true (1). Infine, aggiungi un predicato per includere solo le righe in cui il flag è 1.

Questa non è chiaramente una soluzione ideale. Sarà più lento. E devi ricordare di costruire tutte le regole extra che popolano la bandiera.

select id, val 
from(select * 
     from (select 1 id, 100 val, 0 is_updated_or_inserted from dual 
      union all 
      select 2 id, 200 val, 0 is_updated_or_inserted from dual 
      union all 
      select 3 id, 101 val, 0 is_updated_or_inserted from dual) 
     model 
     dimension by (id) 
     measures (val, is_updated_or_inserted) 
     rules (val[1] = val[cv()]+1 , is_updated_or_inserted[1] = 1)) 
where val=101 
    and is_updated_or_inserted = 1 

---

Aggiornamento

Qui ci sono un paio di idee.

1. È possibile passare al software Oracle? La prima subroutine funziona per me se utilizzo Provider=ORAOLEDB.ORACLE. E la tua seconda subroutine funziona se utilizzo un DSN Oracle. Non riesco a ottenere MSDAORA o {Microsoft ODBC for Oracle} per collegarmi affatto sulla mia macchina. (Anche se probabilmente è colpa mia.)
2. Prova a cambiare model return updated rows a model keep nav return updated rows main main_model. Questo è un cambiamento semanticamente privo di significato, ma solo elenca esplicitamente i valori predefiniti. Ma forse è sufficiente per evitare il bug di analisi che stai incontrando.