SQLで条件一致のレコ−ド件数を取得するには？ (ID:39065)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ご回答ありがとうございます

まずはigy様、「Query1.Open;」でも結果は同じでした
そしてigy様、HOta様、ShowMessage文でrec_counter・・・ですが
ソ−スは以下の感じです
※※※※※※※※※※※※
var
rec_counter : integer;

〜中略〜

begin
  rec_counter := 0 ;
  //
  if edit1.Text='' then
    begin
      ShowMessage('空欄です！');    
      exit;
    end
  else
    begin
      Query1.sql.clear;
      Query1.sql.add('SELECT Count(*) AS rec_counter 
                      FROM テ−ブル１
                      Where 列A ="'+ edit1.text + '"'' );
      try
        try
          //uery1.ExecSQL   ;
          Query1.Open;
          if rec_counter = 0 then
            begin
              ShowMessage('Query1.sql = '+ Query1.sql.text);
              ShowMessage('新規になります（既に存在しています）');
              Query1.sql.clear;
              Query1.close;
              exit;
            end
          else
            begin
              Query1.sql.clear;
              Query1.close;
            end;
        Except
          ShowMessage('更新処理に失敗しました！');
          Query1.sql.clear;
          Query1.close;
          exit;
        end;
      finally
        Query1.sql.clear;
        Query1.close;
      end;

・・・こんな感じです

※※※※※※※※※※※※
（Delphi初心者改め中級者？）
すいません、入社時によく先輩から「どんな言語でも、登録・更新・
削除・検索は基本中の基本よ！・・・」以下省略、とよく怒られていた
のでどうしてもトラウマになっておりまして・・・
そのようなわけですので宜しく御願い致します

←解決時は質問者本人がここをチェックしてください。

戻る