選択クエリー procedure TForm1.Button14Click(Sender: TObject); var de :Variant;//DBEngine db :Variant;//Database rs :Variant;//Recordset sql:string; const dbOpenForwardOnly:Integer = 8; begin //表示用コントロールをクリア Edit2.Text := ''; d…