현재 제 환경입니다.
Delphi 5.0
BDE사용
Firebird 1.5.2
if not DataBase1.InTransaction then
DataBase1.StartTransaction;
try
with Query1 do
begin
Close;
UnPrepare;
Sql.Clear;
Sql.Add('Create View View_sms (View_smsid) as ' +
'Select SmsID From Sms ' +
' Where SmsCheck = :SmsCheck ' +
' Group By SmsID ' +
'Having Count(SmsID) < 10 ');
ParamByName('SmsCheck').AsString := '0';
Open;
DataBase1.Commit;
except
DataBase1.Rollback;
end;
이렇게 하면 안되는건가요?
계속해서 Error creating cursor handle 오류만 나오네요...ㅠ.ㅜ
볼랜드가 기본적으로 제공한 SQL Explorer툴에선 제대로 돌아 갑니다...
|