Làm cách nào để làm việc xung quanh Excel gặp sự cố với một số câu lệnh SELECT?

Question

Hai câu lệnh này tương tự nhau nhưng nguyên nhân thứ hai khiến Excel bị lỗi mỗi khi nó được thực hiện. Sự khác biệt duy nhất là giữa model và model return updated rows (tôi đã thiết kế đặc biệt ví dụ nhỏ này để các truy vấn trở lại chính xác cùng một dữ liệu trong cả hai trường hợp, SQL thực thế giới của tôi là khác nhau tất nhiên):

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 
   

đây có phải là một ví dụ đơn lẻ của một lỗi trong ADO hoặc là có một lớp tiếng của câu lệnh SQL mà sụp đổ phân tích cú pháp (tôi thậm chí không chắc chắn lý do tại sao ADO sẽ phân tích báo cáo kết quả hơn là chỉ đi nó t hrough vào cơ sở dữ liệu).

Dưới đây là đoạn code VBA trong đầy đủ cho phiên bản đó bị treo:

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 

---

Để đối phó với một lời nhận xét, tôi đã cố gắng cùng SQL sử dụng DAO, và bối rối của tôi, chúng tôi nhận được kết quả tương tự. Các mã sau đây bị treo Excel, nhưng loại bỏ các return updated rows là tất cả những gì cần thiết để làm cho nó làm việc như mong đợi:

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

Đây là chi tiết của một workaround, hơn giải pháp, nhưng nó có thể là một lựa chọn để ẩn bất kỳ câu lệnh SQL, ADO xáo trộn (hoặc Excel, cho rằng vấn đề), sau VIEW. Đối với báo cáo động (tức là thay đổi lượt xem trong thời gian chạy), bạn có thể xem xét sử dụng các thủ tục với EXECUTE IMMEDIATE CREATE OR REPLACE VIEW ... trong đó.

Answer 2

Bạn có thể tránh cú pháp rắc rối bằng cách xây dựng một phiên bản tùy chỉnh của return updated rows.

Thêm cột giả để theo dõi những gì đã được cập nhật và khởi tạo nó thành false (0). Sau đó, thêm một số đo và cho mỗi quy tắc tạo một quy tắc tương tự sẽ đặt cờ thành đúng (1). Cuối cùng, thêm vị từ để chỉ bao gồm các hàng có cờ là 1.

Đây rõ ràng không phải là giải pháp lý tưởng. Nó sẽ chậm hơn. Và bạn phải nhớ xây dựng tất cả các quy tắc bổ sung để điền cờ.

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 

---

Cập nhật

Dưới đây là một vài ý tưởng.

1. Bạn có thể chuyển sang phần mềm của Oracle không? Chương trình con đầu tiên của bạn làm việc cho tôi nếu tôi sử dụng Provider=ORAOLEDB.ORACLE. Và chương trình con thứ hai của bạn hoạt động nếu tôi sử dụng một DSN của Oracle. Tôi không thể nhận được MSDAORA hoặc {Microsoft ODBC for Oracle} để kết nối hoàn toàn với máy của mình. (Mặc dù đó có thể là lỗi của tôi.)
2. Hãy thử thay đổi model return updated rows thành model keep nav return updated rows main main_model. Đây là một thay đổi vô nghĩa về ngữ nghĩa, chỉ cần liệt kê rõ ràng các giá trị mặc định. Nhưng có lẽ nó đủ để tránh lỗi phân tích cú pháp mà bạn đang gặp phải.