DELPHIでSQLテーブルを読み込み・編集・削除したい

締切済

質問者：journey-i
質問日時：2009/05/17 18:35
回答数：3件

DELPHI6を使っております。素人です。
以下のようなプログラムを書きたいと思っておりますが、
参考書やネットで調べても以下の作業ができません。

SQLテーブルに
a_tbl
というテーブルをつくり、
a_id varchar2　（一意）
a_namae varchar2
a_kubun varchar2
という項目を作りました。

delphiでは、editboxを設置して、それぞれ
edit1, edit2, edit3という名前をつけました。
また、ボタン１、２を設置しました。

行いたい作業は以下です。

・edit1に値を入力し、ボタン１をクリックする

・「a_id」に格納されている値と、「edit1」に入力した文字とが一致するところの「a_namae」を「edit2」に、「a_kubun」を「edit3」に表示させる
・edit3に表示した文字を変えて、ボタンをクリックすると「a_kubun」が
上書きされる

・「a_id」に格納されている値と、「edit1」に入力した文字とが一致する
ものがない場合、edit2と3に入力してボタン２をクリックすることで
新規に「a_tbl」にレコードが記入される

教えてください！

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： fuuten_no_neko
回答日時：2009/05/22 06:44

＃１、＃２です。

試行は上手くいったでしょうか？
駄目ならば具体的にその状況を補足するか、新しく質問してください。既に新たな質問を投稿しているならば、それへのリンクを補足してください。

- 0
- 件

通報する

この回答へのお礼

できました！
ありがとうございました！

通報する

お礼日時：2009/06/17 23:30

No.2

回答者： fuuten_no_neko
回答日時：2009/05/17 21:39

現在MDB（MS-Access）でしか試すことができないので

１．フォームに
TADOConnection,TADODataSet,TDataSource,TDBEdit二つ,TEdit,TButton
を貼り付ける

２．ADOConnection1.ConnectionStringを
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\data\delphi\Utils\test\SampleData.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System
のようにする。「C:\data\delphi\Utils\test\SampleData.mdb」この部分は適切に変更すること

３．ADODataSet1.ConnectionをADOConnection1にする

４．DataSource1.DataSetをADODataSet1にする

５．DBEdit1/2.DataSourceをDataSource1にする

６．DBEdit1/2.DataFieldを'a_name'/'a_kubun'にする

７．以上の操作は、コードを直接書くのではなく、プロパティエディタを使用する

８．Button1のクリックイベントに以下のコードを書く
procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Locate('a_id',Edit1.Text,[]);
end;

これでEdit1にidを入れてボタンを押すと'a_name'と'a_kubun'が変化します。