在開發時可能會遇到超長SQL，尤其是T-SQL，介於StoredProc和SQL之間，有時候SQLDataSet根本就不吃你給的命令

這時可以考慮交給SQLConnection直上，而且還會回傳一個TCustomSQLDataSet，實戰上更可以縮減一部分的指令碼

以下是簡單的Code

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var csds:TCustomSQLDataset;S:string;i:integer;
begin
SQLConnection1.Execute('SELECT * FROM content',nil,@csds);
try
S := '';
if csds <> nil then
begin
csds.Active := true;
while not csds.EOF do
begin
for i := 0 to csds.FieldCount -1 do
S := S ', ' csds.Fields[i].AsString;
csds.Next;
S := S #13#10;
end;
end;
ShowMessage(S);
except
Exit;
end;
end;
[/code]



是不是相當簡潔有力呢？

編輯記錄

方法不錯
我的作法是用一個String變數，這樣即使超過 255字元，也是會被接受，不過我用的元件跟您不同，我是用SQLQuery元件

------
Delphi程式設計工作室
網址：http://www.myhome.url.tw/
Mail：mybanksoft@gmail.com