掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
データベースを検索するには？ (ID：2861)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
データベースの勉強をしている所でつまずいてしまったので、質問させて下さい。 begin Table1.Open; Table1.Append; Table1.FieldByName('Title').AsString := DBEdit1.Text; Table1.FieldByName('Comment').AsString := DBEdit2.Text; Table1.Post; end; という形で、自分で入力したタイトルとコメントをデータベース(Paradox)に登録し、 procedure TForm1.Button1Click(Sender: TObject); begin Table1.Open; if DBEdit3.Field.AsString = Table1.FieldByName('Title').AsString then begin DBEdit4.Text := Table1.FieldByName('Comment').AsString; end else Application.MessageBox('登録内容はありません','エラー',MB_OK + MB_ICONEXCLAMATION); end; タイトルを入力し、ボタンを押せばそのタイトルと一致して登録されているコメントが表示され、登録されていなかったら「登録内容はありません」というメッセージを表示するという風にしたいのですが、これではうまく行きませんでした。 if文でタイトルと一致するものを探すやり方が悪いと思うのですが、アドバイスして頂ければ幸いです。 よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.