ビットボタンをクリックすると、ダイアログボックスが開き、いくつかのファイルがロードされ、AdoQuery (AQSource1) に追加されます。いくつかのファイルを追加すると、次のエラーが表示されます。
「多段階操作生成エラーです。各ステータス値を確認してください。」
選択した複数のファイルを追加した場合のみ。しかし、ファイルごとにファイルを選択した場合、エラーはまったくありません...しかし、複数のファイルを選択すると、このエラーも表示されないことがあります....ちょっと混乱します...
これを修正するには?簡単な方法で...
PS: Windows 7 Pro SP1 64bit、Embarcadero Delphi 2010 を使用しています。
procedure TFMain1.btImgLoad1Click(Sender: TObject);
var i : integer;
strFilename : string;
begin
if OpenDialog1.Execute then
begin
// Add selected file to DBase and show it on DBGrid
for i := 0 to openDialog1.Files.Count-1 do
begin
// ShowMessage(openDialog1.Files[i]);
strfilename := openDialog1.Files[i];
AQSource1.Append;
AQSource1source_fileurl.Value := strFilename;
AQSource1source_filename.Value := ExtractFileName(strfilename);
AQSource1source_dateadd.Value := date();
AQSource1source_timeadd.Value := Time();
AQSource1.Post;
AQSource1.Close;
AQSource1.Open;
end;
end;
end;