cuptbluesky (苦行僧) ,请进。关于主题： Midas高手请进，Wingsun，猛禽兄，兰企鹅，PPower，pazee,warton,invalid（太多了，写不下）麻

[laosan7909]

请问，你的问题解决了没有呢？我也遇到相应的问题。
什么我的服务器定义的函数不能更新呢？
下面是该函数：
STDMETHODIMP TTestMultiImpl::TestSave(VARIANT* CustVar)
{
int ErrCount=0;
m_DataModule->Database1->StartTransaction();
ShowMessage("pass StartTransaction()");//此处会执行
try
{
OleVariant& vCustVar=*(reinterpret_cast<OleVariant*>(CustVar));
if(!vCustVar.IsNull())
{
ErrCount=0;
m_DataModule->DataSetProvider1->ApplyUpdates（vCustVar,0,ErrCount,vCustVar);
if(ErrCount>0)
{
Error("Error in ApplyUpdates",IID_ITestMulti);
ShowMessage("pass Error if");
}
ShowMessage("pass if");//此处不执行
}
m_DataModule->Database1->Commit();
ShowMessage("pass Commit()");//此处也不执行
}
catch(Exception &e)
{
m_DataModule->Database1->Rollback();
ShowMessage("pass Rollback()");//此处执行
return Error(e.Message.c_str(),IID_ITestMulti);
}
return S_OK;
}
我的客户端是：
void __fastcall TForm1::QuerySaveClick(TObject *Sender)
{

OleVariant CustVar;
ClientDataSet1->CheckBrowseMode();
if(ClientDataSet1->ChangeCount>0)
CustVar=ClientDataSet1->Delta;
else
CustVar.ChangeType(VT_NULL);
try
{
IDispatch* disp=(IDispatch *)(DCOMConnection1->AppServer);
ITestMultiDisp srvr((ITestMulti*)disp);
srvr.Bind((IDispatch *)(DCOMConnection1->AppServer)) ;
srvr.TestSave(reinterpret_cast<VARIANTOBJ*>(&CustVar));
ShowMessage("pass");//此处会执行
}
catch(Exception &e)
{
Application->ShowException(&e);
}

}
调用时没有报错，可是就是不会更新
我想问：为什么会在服务器端执行到catch(Exception &e)里面去了呢？而没有报错呢？
请各位大哥指点迷津，小弟谢了先，问题解决了，再开贴感谢

[laosan7909]

我也遇到这样的问题。我的代码
AnsiString asqltxt;
asqltxt = " insert into student(stu_no, stu_name, stu_sex, prvnc_no, insert_date)";
asqltxt += " values('"+(AnsiString)astu_no+"', '"+ (AnsiString)astu_name+"', '"+(AnsiString)astu_sex+"','"+(AnsiString)aprvnc_no+"',";
asqltxt += " '"+(AnsiString)FormatDateTime("YYYYMMDD", Now())+"' )";

try
{
asqltxt = "1";
laosan0618->PtmpQ->Close();//////////在这里就出错了。
asqltxt += "1";
laosan0618->PtmpQ->SQL->Clear();
asqltxt += "1";
laosan0618->PtmpQ->SQL->Add(asqltxt);
asqltxt += "1";

laosan0618->PtmpQ->ExecSQL();
asqltxt += "1";

*a_return = ((WideString)asqltxt).Detach();

}
catch(Exception &E)
{

*a_return = ((WideString)E.Message).Detach();

}


return S_OK;


laosan0618->PtmpQ->Close();//////////在这里就出错了。出错代码是eaccessviolation
还有远程数据模块laosan0618在options是没有被自动创建的（不知到大家注意没有）

也就是说明在laosan0618->PtmpQ没有建立。
我的处理方法是在服务器加入TDataModule 上放一个Query来专门处理execsql语句的。
上面的问题就解决了。不知各位高手有什么想法！

[warton]

不太懂midas

[RomanticProgrammer]

在MIDAS中数据的更新有两种方式。使用SQL叙述方式，你需要把TDataSetProvider的ResolveToDataSet设为false。第二钟是由TDataSetProveder连接的数据集组件负责数据的更新。MIDAS标准的数据更新模式是，客户端调用TClientDataset的ApplyUpdatas，然后会触发服务端的TDataSetProvider的ApplyUptates更新。而不是你使用的这样直接调用TDataSetProvider的ApplyUpdates的方法。在你调用TClientDataSet的Applyupdatas时ClientDatset的Delta属性会自动传给TDataSetprovider。你定义一个Viriant来传递它有些多次一句。
调用TClientdataSet的Applyupdates方法做了下面几件事情：
1. Generates a BeforeApplyUpdates event. (This event may not be public on some TCustomClientDataSet descendants.)
2. Calls the provider to apply the updates in the Delta property and receives any records returned by the provider because they generated errors when it attempted to apply them to the database.
3. Generates an AfterApplyUpdates event. (This event may not be public on some TCustomClientDataSet descendants.)
4. Calls the client dataset Reconcile method to reconcile any records that are returned in step 2.
如果用你的方式，1，4是不会发生的。
/////
ShowMessage("pass if");//此处不执行
ShowMessage("pass Commit()");//此处也不执行
这两句没有执行是因为你的代码在_DataModule->DataSetProvider1->ApplyUpdates（vCustVar,0,ErrCount,vCustVar);或者OleVariant& vCustVar=*(reinterpret_cast<OleVariant*>(CustVar));

时已经出错了。所以跳到catch里面去了。
/////
建议你用标准的MIDAS更新方式，而不是自己定义一个专门的接口，即费力有不讨好。

[RomanticProgrammer]

第二个问题是你没有把中间层远程数据模块设为自动创建。还有需要把TdateSetProvider 的Option属性加上poAllowCommandText；

[ChengCheng2000]

学点东西。。。

[BCBChina]

学习！

[oldcold]

mark

[online]

学习！

[laosan7909]

不好意思了，好几天没有上网了。

能不能和RomanticProgrammer() 兰企鹅||南极俺最在讨论一下呢？

以下是我为什么要写接口的原因
1、对于一个多个表同时更新的问题。用上面的方法，我觉得不好控制。

2、对于三层结构来说，我想把对数据的处理放在中间的统一进行处理，这样的话，我维护的时候会
比较方便一点。而且在实际的应用中，就不需要很多的datasetprovider。

3、我对于三层结构的思想是：（帮忙指出这样做的效率如何呢？会不会没有发挥midas的强大的功能呢）
对于添加、修改、删除、查询我用中间的接口来实现。
clientdatase和datasetprovider只用来显示数据用的。


第二个问题是你没有把中间层远程数据模块设为自动创建

不知道你注意没有呢？中间层远程数据模块并不是自动创建的，而且也不能自动创建，在options改动不行。
因为编译的时候会出错。


上面只是我的一些看法，不妥之处，请指正。。。。谢谢！

[RomanticProgrammer]

1.没有什么不好控制的，对多个TClientDataSet调用ApplyUpdates就可以了。
2.你这样作并没有把任何逻辑从客户端移植到服务器。事实上在你调用你的接口时和调用TClientDataSet的ApplyUpdates所执行的过程是一样的。
3.请看《delphi5.x多层分布式开发》，不是几句话能讲清楚的。
‘不知道你注意没有呢？中间层远程数据模块并不是自动创建的，而且也不能自动创建，在options改动不行。’
远程数据模块可以自动创建的。我一直是这样用的。^_^。是你搞错了。