Re: ADOQuery Command Text does not return a result set

can someone please help me?


"Leposava Knez" <leposava.knez@xxxxxxx> wrote in message
news:483bb140@xxxxxxxxxxxxxxxxxxxxxxxxx
now I have this code
and still © is converted to L? what may be the problem?


procedure TForm1.Button10Click(Sender: TObject);
var
SourceString: string;
StringStream : TStringStream;
sqlFill:String;
begin

frxReport3.DesignReport;
//MemoryStream := TMemoryStream.Create;
StringStream:= TStringStream.Create(SourceString);

try

frxReport3.SaveToStream(StringStream);
StringStream.Position := 0;

SetLength(SourceString, StringStream.Size);
StringStream.Read(Pointer(SourceString)^, StringStream.Size);
finally
StringStream.Free;
end;

AdoTable10.Edit;
AdoTable10.FieldByName('data').AsString := SourceString;

ADOQRazno.Active:=False;
ADOQRazno.SQL.Clear;
sqlFill := '';
sqlFill := ('UPDATE Izpisi ');
sqlFill := sqlFill+(' Set DATA = :parData ');
sqlFill := sqlFill+(' WHERE IZPISTIP = :p1 ');
ADOQRazno.SQL.Add(sqlFill);
ADOQRazno.Parameters.ParamByName('parData').DataType := ftString;
ADOQRazno.Parameters.ParamByName('parData').Value:=
AdoTable10.FieldByName('data').AsString;
ADOQRazno.Parameters.ParamByName('p1').DataType := ftInteger;
ADOQRazno.Parameters.ParamByName('p1').Value:= 1;
ADOQRazno.ExecSQL;

end;




.

Quantcast