[Dead_Gigabit]

Задача такая есть база в MS Access нашел исходник который копирует запись:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

var   i: Cardinal;   srcStream: TBlobStream; begin   try     with datamodule4.ADOTable1 do     begin       CheckBrowseMode;       if EOF or BOF then         raise Exception.Create('Разместите курсор на правильной строке');     end;     with datamodule4.ADOTable2 do     begin       Append;       for i := 0 to datamodule4.ADOTable1.FieldCount - 1 do         if datamodule4.ADOTable1.Fields[i].DataType < ftBytes then           FieldByName(datamodule4.ADOTable1.Fields[i].FieldName).Assign(datamodule4.ADOTable1.Fields[i])         else         try           srcStream := nil;           <font color="Red">srcStream := TBlobStream.Create(TBlobField(datamodule4.ADOTable1.Fields[i]), bmRead);</font>           TBlobField(FieldByName(datamodule4.ADOTable1.Fields[i].FieldName)).LoadFromStream(srcStream);         finally           if Assigned(srcStream) then             srcStream.Free;         end;       Post;       datamodule4.ADOtable1.Active:=false;       datamodule4.ADOtable1.Active:=true;     end;      except     on E: EDBEngineError do       MessageDlg(E.Message, mtError, [mbOk], 0);     on E: Exception do       MessageDlg(E.Message, mtError, [mbOk], 0);   end;  end;

прогга компилиться ,но при копировании запись ругаеться на строку (выдилил красным)
выводит ошибку:
First chance exception at $7C81EB33. Exception class EInvalidCast with message 'Invalid class typecast'. Process Project1.exe (2712)

в чем моя ошибка подскажите пожалуйста...

[Dead_Gigabit]

Ну что не кто не может помочь что-ли....????

[Страдалецъ]

А вы уверены, что у вас точно blob поле попадает в ваше условие?
Не нравится мне такая запись:

Код:

1 2 3

if datamodule4.ADOTable1.Fields[i].DataType < ftBytes then ...         else

потенциально туда может попасть все что после ftBytes

[Dead_Gigabit]

хм незнаю этот исход работает с простым table1 а с ADO не хочет...
Может вы подскажите другой метод копирования?

[Страдалецъ]

Самое очевидное воспозоваться запросом на вставку записи.

Код:

1	insert into UserTable from select * from UserTable where id=10

[Dead_Gigabit]

Я использую ADOTable а не ADOQuery
Попытлся с помощью ADOTable

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm3.ToolButton19Click(Sender: TObject); var s,d,f,g,h,j: string; a:integer; begin s:= datamodule4.ADOTable1.Fields.Fields[1].AsString; d:= datamodule4.ADOTable1.Fields.Fields[2].AsString; f:= datamodule4.ADOTable1.Fields.Fields[3].AsString; g:= datamodule4.ADOTable1.Fields.Fields[4].AsString; h:= datamodule4.ADOTable1.Fields.Fields[5].AsString; j:= datamodule4.ADOTable1.Fields.Fields[6].AsString; datamodule4.ADOTable1.Last; <font color="Red">a:= (datamodule4.ADOTable1.Fields.Fields[0].AsInteger + 1);</font> datamodule4.ADOTable1.Active:=false; datamodule4.ADOTable2.Active:=true; datamodule4.ADOTable2.Insert; datamodule4.ADOTable2.Fields.Fields[0].AsInteger:=a; datamodule4.ADOTable2.Fields.Fields[1].AsString:=s; datamodule4.ADOTable2.Fields.Fields[2].AsString:=d; datamodule4.ADOTable2.Fields.Fields[3].AsString:=f; datamodule4.ADOTable2.Fields.Fields[4].AsString:=g; datamodule4.ADOTable2.Fields.Fields[5].AsString:=h; datamodule4.ADOTable2.Fields.Fields[6].AsString:=j; datamodule4.ADOTable2.Post; datamodule4.ADOTable2.Active:=false; datamodule4.ADOTable1.Active:=true; datamodule4.ADOtable1.Active:=false; datamodule4.ADOtable1.Active:=true;

Но у меня не получается с переменной "а" т.к при копировании копируются все поля а значение поля равное переменной "а" ключевое и поэтому приходиться добавлять +1 запись, но почему-то прога дает скопировать раз 5-7 потом выдает ошибку нужно её перезагружать... В чем косяк может быть?