TADOQuery 控件

SQL 查询，继承自 TCustomADODataSet 控件。

属性	说明
DataSource	作为查询参数的数据源，TDataSource 对象
RowsAffected	最后一次执行操作影响的记录数
SQL: TStrings	SQL 语句，内容中以冒号开头的为参数
方法	说明
ExecSql()	执行不返回记录的 SQL，返回受影响的记录数

AdoQuery 示例

显示数据库中的 JPEG 图像

var
    ts : TStream;
    jpg : TJpegImage;

adoquery1.SQL.Text:='select * from 图像 where id=' + edit1.Text;
adoquery1.Open;

jpg := TJpegImage.Create;

try
    ts := ado1.CreateBlobStream(ado1.FieldByName('pic'),bmRead);
    jpg.LoadFromStream(ts);
    ts.Free;

    Image1.Picture.Bitmap.Assign(jpg);
finally
    jpg.Free;
    adoquery1.Close;
end;

图像保存到数据库中
if openpicturedialog1.Execute then
begin
    fs := TFileStream.Create(openpicturedialog1.FileName,fmOpenRead);
    adoquery2.SQL.Text:='select * from 图像 where id is null';
    adoquery2.Open;
    adoquery2.Append;
    TBlobField(adoquery2.FieldByName('PIC')).LoadFromStream(fs);
    adoquery2.Post;
    adoquery2.Close;
    fs.Free;
end;