Delphi Personal で ADO
追加クエリー (Command.Execute)
procedure TForm1.Button15Click(Sender: TObject);
var
cnn :Variant;//Connection
cmd: Variant;//Command
sql: string;
begin
cnn := CreateOleObject('ADODB.Connection');//Edit3 に mdbファイル名を入力
cnn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
cnn.Open;//Edit4 に テーブル名を入力
//Edit5, Edit6 に フィールド名を入力
//Edit1, Edit2 に 値を入力
sql := 'INSERT INTO ' + Edit4.Text + ' (' + Edit5.Text + ', ' + Edit6.Text + ') '
+ 'VALUES (' + Edit1.Text + ', ''' + Edit2.Text + ''')';cmd := CreateOleObject('ADODB.Command');
cmd.ActiveConnection := cnn;
cmd.CommandText := sql;
cmd.Execute;cnn.Close;
end;