第三章 撰写使用ADO技术的应用系统（二）
3-1 ADO数据集会自动更新多个表的数据（前面已叙述）
3-2 ADO处理BLOB
将Blob内容加载到TADODataSet中的字段：BlobContentToString(sFileName)
保存Blob的内容：
BS:TADOBlobStream；
BS:=TADOBlobStream.Create(TBlobField(adodsBlobs.FieldByName(‘Blobs’)；
BS.SaveToFile(sFileName)就把内容写入文件。
3-3 ADO执行存储过程
使用TADOStoredProc控件
3-4 使用ADO异步执行能力
（1）TADOConnection中有ConnectOptions属性，coConnectUnspecified为同步执行，连接完成后再执行下一条代码，coAsyncConnect为异步执行，马上执行下一条代码。一般只有在Server特别慢时才考虑异步。
（2）设置TADODataSet中的ExecuteOptions可以决定同步还是异步：eoAsyncFetch同步、eoAsyncFetchNonBlocking异步。例子：
procedure TForm1.FormShow(Sender: TObject);
var
sRecNo:string;
begin
//先用ADOCommand测一共时间
self.ADOConnection1.Connected:=true;
self.ProgressBar1.Max:=self.ADOCommand1.Execute.Fields.Item[0].Value;
sRecNo:=IntToStr(self.ProgressBar1.Max);
self.Caption:='共有'+sRecNo+'笔数据'
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.ADOConnection1.Close;
end;
//同步执行
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ADODataSet1.Active:=false;
ADODataSet1.ExecuteOptions:=[eoAsyncFetch];
finally
lStart:=GetTickCount;
ADODataSet1.Active:=true;
end;
end;
//异步执行
procedure TForm1.Button2Click(Sender: TObject);
begin
try
ADODataSet1.Active:=false;
ADODataSet1.ExecuteOptions:=[eoAsyncFetchNonBlocking];
finally
lStart:=GetTickCount;
ADODataSet1.Active:=true;
end;
end;
//异步时能通知应用程序ADO还在处理数据中，同步则必须等数据都读完了才能更新ProgressBar
procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
self.ProgressBar1.Position:=Progress;
end;
//数据取完后显示
procedure TForm1.ADODataSet1FetchComplete(DataSet: TCustomADODataSet;
const Error: Error; var EventStatus: TEventStatus);
begin
lEnd:=GetTickCount;
showmessage('总共花了'+FloatToStr((lEnd-lStart)/1000.0)+'秒');
end;
异步模式可以提供更好的执行效率
3-5 ADO错误
分为Provider错误和ADO错误。Provider错误可以被捕捉存放于Errors对象数组中，数组中每一个Error对象说明了一个发生的错误；而ADO错误就不行了。
ADOExpress中错误会触发三种事件：OnDeleteError、OnEditError、OnPostError。
eg在OnPostError中处理错误。
var
adoErrors:Errors
adoError:Error;
iCount:Integer;
begin
adoErrors:=ADOConnection.Errors;
for iCount:=0 to adoErrors.Count-1 do
begin
adoError:=adoErrors.Item[iCount];
//然后就可以对adoError进行相应的处理了
end;
end;
3-6 ADO存取Excel
使用Microsoft Jet 4.0 OLE DB Provider驱动程序来操作Excel。与操作DB的方式相同，不过是独占式的。
3-7 ADOX（Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security）
ADOX的工作原理是让程序员在客户端面对ADOX的一致接口，并且调用方法来建立或修改数据库结构信息以及安全机制，然后ADOX会要求特定数据库的ADO Provider产生相对应正确的DDL来工作。
使用ADOX，首先要在Delphi中对其Wrap，找到Project－》Import Type Library，选择Microsoft ADO Ext.对象，更改Class name如下（防止重复），然后Create Unit
然后添加对ADOX_TLB的引用，使用时先创建一个_Catalog类型的对象：
self.adoxCatalog:=CoCatalog.Create;
结束时释放：
adoXCatalog:=nil;
建立连接：
adoxCatalog.Set_ActiveConnection(self.ADOConnection1.ConnectionObject);
然后获得所有表：
adoxTables:=adoxCatalog.Tables; 返回Tables类型
就可以按Tables->Table->Columns->Column的顺序获得信息。
如果只是取字段名、类型的话，完全可以用DataSet.Fields[i].DataType字段类型、DataSet.Fields[i].Size字段大小，但用ADOX就可以获得更多的信息。这可以通过分析DataSet的XML表示得知。
SQL Server执行时首先exec sp_provider_types_rowset NULL, NULL，然后exec [StudentCourse]..sp_tables_rowset;2 NULL, NULL获得数据库StudentCourse的表集合，最后exec [StudentCourse]..sp_columns_rowset N'sysconstraints', NULL, NULL根据一个表获得列集合。
