SQLde出力されたカウントをテキストにコピーするには

解決

Delphi大好き 2009-07-21 23:59:02 No: 35174

初歩的な事かもしれませんが、参考書に載ってなく解らなかったので、
どなたかご教授くださると助かりますｍ（＿＿”）ｍ。

SQL文：
SELECT COUNT(*) FROM 物件情報 WHERE 物件名 ='ソフィア';
結果：
4

を、Stringの変数やテキストに入力したいと思っています。

どなたか宜しくお願いしますｍ（＿＿）ｍ。

Delphi大好き 2009-07-22 00:53:59 No: 35175

自己解決しました。

label1.Caption := form1.Query1.FieldByName('COUNT(*)').AsString;

FieldByNameにそのまま指定すれば良かったのですね（＾＾）。

オラクル勉強中 2009-07-22 01:16:58 No: 35176

これでどうでしょうか？
意外とDBの接続方法とか載ってないDelphiの参考書って多いですよね・・・

//-----------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
wk_Count : Integer; //変数の宣言
begin

ADOQuery1.SQL.Clear; //SQLクリア

  //SQLのセット
  ADOQuery1.SQL.Add('SELECT COUNT(*) FROM 物件情報 ');
  ADOQuery1.SQL.Add(' WHERE 物件名 =:B_物件名');

//バインド変数を使用しているので値をセット
ADOQuery1.Parameters.ParamByName('B_物件名').Value := 'ソフィア';

  try
    //オープン
    ADOQuery1.Open;
  except
    //エラーの時
    ADOQuery1.Close;                 //切断
    Showmessage('接続失敗！');
    Exit;                            //Button1Clickイベントを終了させる
  end;

  //結果をセット
  wk_Count   := ADOQuery1.FieldbyName('count(*)').AsInteger;
  Edit1.Text := IntToStr(ADOQuery1.FieldbyName('count(*)').AsInteger);

//切断
ADOQuery1.Close;
end;

オラクル勉強中 2009-07-22 01:18:32 No: 35177

ああ自己解決されていましたか・・・
画面リフレッシュしていませんでしたorz

ぽむぽむ 2009-07-22 02:26:24 No: 35178

解決済みだけど
Query1.Fields[0].AsInteger

Delphi大好き 2009-07-22 06:52:20 No: 35179

皆さんありがとうございます、
何気に開いたら更新されてたの気づきました(^^;。

色々な方法があるのですね。
驚きです、とても勉強になります。

因みに環境はTurboDELPHI2006（無償版）です。

今は自宅で環境が手元にないので、
早速明日試してみます。

皆さんありがとうございましたｍ（＿＿）ｍ。