Delphi7的WebService与数据库

Server 端：

数据挖掘研究院

SoapDataModule中加入 ADOConnection1、ADODataSet1、DataSetProvider1；DataSetProvider1的DataSet设置为ADODataSet1；ADODataSet1的CommandText设置为空，Connection设置为ADOConnection1。

数据挖掘研究院

DataSetProvider1的DataRequest事件：
function TDataMod.DataSetProvider1DataRequest(Sender: TObject;
  Input: OleVariant): OleVariant;
begin
    if ADOConnection1.Connected then
    begin
        ADODataSet1.CommandText := Input;
        Result := DataSetProvider1.Data;
    end;
end;

procedure TDataMod.SoapDataModuleCreate(Sender: TObject);
var
  DataPath: string;
const
  SQL :string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:programsDelphi7DemosWebServicesSOAPDataModuleDataTree.mdb;Persist Security Info=False";
begin
  DataPath := ExtractFilePath(Application.ExeName)+ "..Data";
  XMLTransformProvider1.XMLDataFile := DataPath + "XML_Document.xml";
  XMLTransformProvider1.TransformRead.TransformationFile := DataPath + "ToDp.xtr";
  XMLTransformProvider1.TransformWrite.TransformationFile := DataPath + "ToXml.xtr"; 数据挖掘研究院
   try
   ADOConnection1.Connected :=false;
   ADOConnection1.ConnectionString:= SQL;
   ADOConnection1.Connected :=true;
   except
      //showmessage(A_ParentPath+"DataInfoMat.mdb 调用失败");
   end;
end;

Client端：

SoapConnection1、ClientDataSet1；ClientDataSet1的ConnectionBroker属性为SoapConnection1，ProviderName属性为DataSetProvider1

查询记录集：
procedure TClientForm.Button1Click(Sender: TObject);
var SQL:string;
begin
  if not SoapConnection1.Connected then
  begin
    SoapConnection1.URL:=URLList.Text+"/soap/IDataMod";
    SoapConnection1.Open;
  end;
  SQL := Edit1.text;
  with ClientDataSet1 do
  begin
    Data := DataRequest(SQL);
  end;
end;