Delphi Personal で DAO
更新クエリー
procedure TForm1.Button16Click(Sender: TObject);
var
de:Variant;//DBEngine
db:Variant;//Database
qd:Variant;//QueryDef
begin
de := CreateOleObject('DAO.DBEngine.36');//Edit3 に mdbファイル名を入力
db := de.OpenDatabase(Edit3.Text,false, false);
qd := db.CreateQueryDef('');//Edit4 に テーブル名を入力
//Edit5, Edit6 に フィールド名を入力
//Edit1, Edit2 に 値を入力
qd.Sql := 'UPDATE ' + Edit4.Text + ' '
+ 'SET ' + Edit6.Text + ' = ''' + Edit2.Text + ''' '
+ 'WHERE ' + Edit5.Text + ' = ' + Edit1.Text;
qd.Execute;qd.Close;
db.Close;
end;