掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SQLde出力されたカウントをテキストにコピーするには (ID:35176)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでどうでしょうか？ 意外と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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.