請教各位一個 ADO的問題, 我有一段指令會先 Create View 將一些表格組合起來, 然後再用Select 指令撈取資料
但是執行時都會發生 "Current provider does not support returning mulpile recordsets from a signle execution."
的錯誤, 不過一個是用 ADOCommand, 另一個是 ADOQuery, 所以有點被搞糊塗了, 不知到有沒有高手可以指導一下.

指令如下
<textarea class="delphi" rows="10" cols="60" name="code">begin CreateViewStr := ParseView(SP); //產生 Create View SQL 指令 DropViewStr := 'Drop View ' SP.View; //產生 Drop View 指令 SQLStr := ParseCMD(SP); //產生 Select 指令 with DM do begin if Connect(ADOConn) then begin ADOCmd.CommandText := CreateViewStr; ADOCmd.Execute; // Create View ADOQuery.SQL.Clear; ADOQuery.SQL.Add(SQLStr); try Application.ProcessMessages; ADOQuery.close; ADOQuery.Open; // Select 資料 except ShowMessage('[GetData]:取得資料失敗!'); end; ADOCmd.CommandText := DropViewStr; ADOCmd.Execute; // Drop View end; end; </textarea>

<textarea name="code" cols="60" rows="10" class="delphi"> begin CreateViewStr := ParseView(SP);//產生 Create View SQL 指令 DropViewStr := 'Drop View ' SP.View; //產生 Drop View 指令 SQLStr := ParseCMD(SP);//產生 Select 指令 with DM do begin if Connect(ADOConn) then begin ADOCmd.CommandText := CreateViewStr; ADOCmd.Execute; // Create View ADOQuery.close; // 看一下ONLINE HELP就知道為何要先CLOSE。 ADOQuery.SQL.Clear; ADOQuery.SQL.Add(SQLStr); try Application.ProcessMessages; ADOQuery.Open; // Select 資料 except ShowMessage('[GetData]:取得資料失敗!'); end; ADOCmd.CommandText := DropViewStr; ADOCmd.Execute;// Drop View end; end; </textarea>

是應該先 Close 沒錯, 我在第 15行也有先Close , 第16行再打開,
剛剛照您的指示將Close 往上挪試了一下, 結果還是一樣不行

那你顯示出來的程式碼應該沒有問題了。
查察看你產生那個VIEW TABLE的函數裡面的程式碼看看。