ADOExpress学习笔记（二） 摘自lzcarl

第三章 撰写使用ADO技术的应用系统（二）<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />

 

然后添加对

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根据一个表获得列集合。