Hallo Zusammen...<br>
meine Frage ist wohl recht einfach, aber irgendwie stehe ich auf dem Schlauch.<br>
Ich will eine EXE Datei auf einen SQL - Server ablegen und säter von dort wieder auf die Festplatte eines Clients kopieren. <br>
Mein Problem ist wie bekomme ich das BLob-Feld wieder geschrieben?<br>
Hier mein Proigrammansatz:<br>
<br>
procedure TForm1.btnInDatenbankSchreibenClick(Sender: TObject); <br>
begin<br>
ADOCommand1.CommandText := 'insert into tblTest (Feld) values ( :Feld )';<br>
ADOCommand1.Parameters.ParamByName('feld').LoadFro mFile('C:\temp\Test.exe',ftBlob );<br>
ADOCommand1.Execute;<br>
end;<br>
<br>
procedure TForm1.btnAusDatenbankLesenClick(Sender: TObject);<br>
begin<br>
ADOQuery1.Close;<br>
ADOQuery1.SQL.Clear;<br>
ADOQuery1.SQL.Add('select feld from tbltest where lngID = 1'); // lngID = 1 ist der erste Datensatz --- der ist da !!!<br>
ADOQuery1.open;<br>
<br>
// so und hier soll das ganze wieder auf die Festplatte zurück .....<br>
<br>
end;<br>
Danke schon mal.<br>
Wolfgang
meine Frage ist wohl recht einfach, aber irgendwie stehe ich auf dem Schlauch.<br>
Ich will eine EXE Datei auf einen SQL - Server ablegen und säter von dort wieder auf die Festplatte eines Clients kopieren. <br>
Mein Problem ist wie bekomme ich das BLob-Feld wieder geschrieben?<br>
Hier mein Proigrammansatz:<br>
<br>
procedure TForm1.btnInDatenbankSchreibenClick(Sender: TObject); <br>
begin<br>
ADOCommand1.CommandText := 'insert into tblTest (Feld) values ( :Feld )';<br>
ADOCommand1.Parameters.ParamByName('feld').LoadFro mFile('C:\temp\Test.exe',ftBlob );<br>
ADOCommand1.Execute;<br>
end;<br>
<br>
procedure TForm1.btnAusDatenbankLesenClick(Sender: TObject);<br>
begin<br>
ADOQuery1.Close;<br>
ADOQuery1.SQL.Clear;<br>
ADOQuery1.SQL.Add('select feld from tbltest where lngID = 1'); // lngID = 1 ist der erste Datensatz --- der ist da !!!<br>
ADOQuery1.open;<br>
<br>
// so und hier soll das ganze wieder auf die Festplatte zurück .....<br>
<br>
end;<br>
Danke schon mal.<br>
Wolfgang
Comment