imagestream:=tfilestream.create('d:\test.bmp',fmShareDenyNone); Sqlclause:='insert into table values(:aa)'; tempquery.SQL.Clear; tempquery.SQL.Add(SqlClause); Tempquery.Parameters.ParamByName('aa').LoadFromStream(imagestream,ftblob); tempquery.ExecSQL;
在SQL 中将字段类型设为Image. If OpenDialog1.Execute then With ADOQuery1 do begin Edit; TBlobField(FieldByName('Wenjian')).LoadFromFile(OpenDialog1.FileName); Post; end;
Sqlclause:='insert into table values(:aa)';
tempquery.SQL.Clear;
tempquery.SQL.Add(SqlClause);
Tempquery.Parameters.ParamByName('aa').LoadFromStream(imagestream,ftblob);
tempquery.ExecSQL;
If OpenDialog1.Execute then
With ADOQuery1 do
begin
Edit;
TBlobField(FieldByName('Wenjian')).LoadFromFile(OpenDialog1.FileName);
Post;
end;