2

MSSQL と ADO を使用して、さまざまな SQL ステートメントを実行しています。

コード シーケンスは次のようになります。

aADOQuery.Active := False;
aADOQuery.SQL.Text := ' MY SQL STATEMENT ';
aADOQuery.ExecSQL;
aADOQuery.Active := True;

SQL 戻り値が空の場合、最後のステートメントは失敗します。実行時エラーを回避するために、このケースを確認する方法は?

注: SQL ステートメントは、ユーザーが SQL を入力しているメモから取得されます。

4

2 に答える 2

8

SELECTクエリがレコード セット (ステートメント) を返す場合は、単にorを使用する必要はありません。 ExecSQLaADOQuery.OpenActive := True

INSERT//などのレコード セットを返さないクエリの場合はUPDATE、DELETEを使用しますExecSQL。ほとんどの場合aADOQuery.RowsAffected、クエリによって返されます。

使用する必要があるその他の SQL ステートメントExecSQLは、CREATE/ ALTER/ DROP/EXECなどです (RowsAffectedこの場合は戻りません) 。

INSERTクエリがデータ (ステートメントなど) へのカーソルを返さない場合、そのようなデータへの試行Openまたは設定は失敗します。TDataSetActive

ADOConnection.Executeコマンドテキストを実行する代わりにを使用して、からの有効な戻りTADOQuery値があるかどうかを調べることができます。あなたは次のようなことができます：RecordsetADOConnectionADOConnection.OnExecuteComplete

procedure TForm1.ADOConnection1ExecuteComplete(Connection: TADOConnection;
  RecordsAffected: Integer; const Error: Error;
  var EventStatus: TEventStatus; const Command: _Command;
  const Recordset: _Recordset);
begin
  // check for errors
  if Assigned(Error) then
  begin        
    Memo1.Lines.Add('Error: ' + Error.Description);
  end;
  // check for a valid recordset
  if Assigned(Recordset) then
  begin
    MyDataSet.Recordset := Recordset; // MyDataSet is TADODataSet
  end;
  // check for affected rows
  if RecordsAffected >= 0 then
    Memo1.Lines.Add('Records affected: ' + IntToStr(RecordsAffected))
  else
    Memo1.Lines.Add('Record count: ' + IntToStr(MyDataSet.RecordCount));
end;
于 2013-03-31T15:33:48.577 に答える
2

これはあなたの質問に対する直接的な回答ではありませんが、さまざまなコマンドをデータベースに送信できるようにする SQL コマンド インタープリター ツールを作成しました。クエリの最初の単語が「select」でない場合、「execsql」がコマンドです。「select」については、そのクエリが Borland がライブ クエリと呼んでいる、インタラクティブな編集が可能なものかどうかを判断しました。私のプログラムの「クエリ」変数は、TDataSetProvider を介して TSQLDataSet に接続されている TClientDataSet ですが、これは AdoQuery でも機能するはずです。

procedure TForm1.Button1Click(Sender: TObject);  // this is the 'execute query' button
var
 i: integer;
 cmd: string[6];
 tmp: string;

begin
 tmp:= mem.lines[0];
 i:= 1;
 while tmp[i] = ' ' do inc (i);
 dec (i);
 if i > 0 then tmp:= copy (tmp, i + 1, length (tmp) - i);
 cmd:= '';
 for i:= 1 to 6 do cmd:= cmd + upcase (tmp[i]);
 query.close;
 sdsquery.commandtext:= mem.text;
 if cmd = 'SELECT' then
  begin
   if livequery then
    begin
     dbgrid.options:= dbgrid.Options + [dgEditing];
     dbNavigator1.visiblebuttons:= [nbfirst, nbprior, nbNext, nbLast, nbInsert,
                                    nbDelete, nbedit, nbpost, nbcancel,
                                    nbrefresh];
    end
   else
    begin
     dbgrid.options:= dbgrid.Options - [dgEditing];
     dbNavigator1.visiblebuttons:= [nbfirst, nbprior, nbNext, nbLast];
    end;
   query.open
  end
 else sdsquery.ExecSQL;
end;

function TForm1.LiveQuery: boolean;
// check what the second token after 'from' is
const
 EOI = #26;

var
 cmdlen, curpos: integer;
 ch: char;
 tmp: string;

 Procedure GetChar;
 begin
  inc (curpos);
  if curpos <= cmdlen
   then ch:= mem.text[curpos]
   else ch:= EOI;
 end;

 Function Token: string;
 const
  punct: set of char = [' ', ',', ';', EOI, #10, #13];

 begin
  result:= '';
  while ch in punct do getchar;
  while not (ch in punct) do
   begin
    result:= result + upcase (ch);
    getchar
   end
 end;

begin
 ch:= ' ';
 cmdlen:= length (mem.text);
 curpos:= 0;
 tmp:= token;
 while tmp <> 'FROM' do tmp:= token;
 tmp:= token;  // this should be the first table name
 if ch = ',' then result:= false    // select ... from table1, table2
 else if ch = EOI then result:= true  // select * from table1
 else
  begin
   tmp:= token;
   result:= (tmp = 'WHERE') or (tmp = 'ORDER')
  end;
end;
于 2013-03-31T17:01:19.193 に答える