Hallo,
wahrscheinlich renne ich eigentlich unverschlossenen Türen ein ...
Zu meinem Problem:
Ich habe auf dem MS SQL Server 7 eine Tabelle, in der ich neben einem
Schlüsselfeld ein Worddokument aus einem OLE-Container speichern möchte.
Das erste Feld für die Schlüsselnummer ist als VARCHAR(14) das Feld für
das Dokument als VARBINARY(50) definiert.
Meine Speicherroutine:
procedure TForm1.SaveButtonClick(Sender: TObject);
var SaveDoc: TStream;
begin
SaveDoc:= TStream.Create;
OleContainer1.SaveToStream(SaveDoc);
Save.Params[0].Value := SaveDoc; Hier ist was falsch ????
Save.Params[1].Value := Edit1.Text;
try
....
Save.ExecSql;
finally
SaveDoc.Free;
....
end;
end;
Definition des SQL.Statements:
Update Schriftwechsel
Set STEXT = :Text
where SNR = :Nummer
Was muß ich anders machen ?
Vielen Dank
Volker
wahrscheinlich renne ich eigentlich unverschlossenen Türen ein ...
Zu meinem Problem:
Ich habe auf dem MS SQL Server 7 eine Tabelle, in der ich neben einem
Schlüsselfeld ein Worddokument aus einem OLE-Container speichern möchte.
Das erste Feld für die Schlüsselnummer ist als VARCHAR(14) das Feld für
das Dokument als VARBINARY(50) definiert.
Meine Speicherroutine:
procedure TForm1.SaveButtonClick(Sender: TObject);
var SaveDoc: TStream;
begin
SaveDoc:= TStream.Create;
OleContainer1.SaveToStream(SaveDoc);
Save.Params[0].Value := SaveDoc; Hier ist was falsch ????
Save.Params[1].Value := Edit1.Text;
try
....
Save.ExecSql;
finally
SaveDoc.Free;
....
end;
end;
Definition des SQL.Statements:
Update Schriftwechsel
Set STEXT = :Text
where SNR = :Nummer
Was muß ich anders machen ?
Vielen Dank
Volker
Comment