1.第二章:(2-1-4)动态存取远程数据的例子,
照书上说的在IDynamicSQLDemoServer接口中加入一个称为GetAllTable的方法,设置成
Name Type Modifier
vTables VARIANT * [in,out]
然后,在程序中实现这个方法:
procedure TDynamicSQLDemoServer.GetAllTables(var vTables: OleVariant);
var
tblList:TStringList;
iCount:Integer;
begin
try
tblList:=TStringList.Create ;
ADOConnection1.GetTableNames(tblList);
vTables:=VarArrayCreate([0,tblList.Count-1],varVariant);
for iCount:=0 to tblList.Count-1 do
begin
vTables[iCount]:=tblList.Strings[iCount];
end;
finally
tblList.Free;
end;
end;
编译应用服务器,出现以下错误:Undeclared identifier:'VarArrayCreate',请问是什么意思?
2.还是第二章:(2-1-6)Master/Detail的应用系统的例子
如书上的图2-37,设置客户端的Detail TClientDataset组件DataSetField为clientDataSet1adsDetail,为什么一设置就出错!!
照书上说的在IDynamicSQLDemoServer接口中加入一个称为GetAllTable的方法,设置成
Name Type Modifier
vTables VARIANT * [in,out]
然后,在程序中实现这个方法:
procedure TDynamicSQLDemoServer.GetAllTables(var vTables: OleVariant);
var
tblList:TStringList;
iCount:Integer;
begin
try
tblList:=TStringList.Create ;
ADOConnection1.GetTableNames(tblList);
vTables:=VarArrayCreate([0,tblList.Count-1],varVariant);
for iCount:=0 to tblList.Count-1 do
begin
vTables[iCount]:=tblList.Strings[iCount];
end;
finally
tblList.Free;
end;
end;
编译应用服务器,出现以下错误:Undeclared identifier:'VarArrayCreate',请问是什么意思?
2.还是第二章:(2-1-6)Master/Detail的应用系统的例子
如书上的图2-37,设置客户端的Detail TClientDataset组件DataSetField为clientDataSet1adsDetail,为什么一设置就出错!!
解决方案 »
- 怎样对扫描进去的图像进行自动去黑边、纠斜的处理?
- 如何在DBGrid控件中显示数据后,而滚动条在开始位置,不在最后?
- bitmap是一个控件吗?不明白,书上怎么都没介绍
- 菜鸟问题
- 紧急求助之四:Delphi支不支持DirectX,openGl,用起来方不方便(与VC++相比)?
- 在table1.post;之后怎样在dbgrid中显示所有记录出了关闭再打开?
- dephi有没有2号补丁包?
- 数据刷新,窗体传递变量、showmessage。100分,如果不够,再开贴给分。
- 用MediaPlayer在win2000播放mp3时,有严重的暴音,音质很差(win98没事),请问有没有别的比较好的的控件?谢谢
- *****大家讨论一下,Borland的Delphi认证管用吗?****
- 是用delfphi做还是用SQL SERVER做??
- RvProject怎么执行report?
中加上
Variants;
首先要理解:只要ADOConnection1的连接串没错就应当可以连上,至于连上后,你想怎么操作就根据你的情况了,总之,所谓的动态存取我不提倡使用。
李先生的书太老了,只学习一下思想,别作为捆绑自己的格子;
Master/Detail用table/query都可以简单的实现,何必呢?
谢谢,上回实在是过意不去,让你花了一个多小时的时间,也没问出什么实质性的问题,汗颜,故这几天在家潜心修学,希望能够快速成长!
to ljmanage(过客):
谢谢!我马上试!
第二个问题么,我也不知道。
第二个问题,最好不要这样做,因为效率不高
第一问题在implementation部分加入uses Variants;就好了.
第二个问题,我也遇到了,好像d6和d5中的
TClientDataSet不太一样.
这个框应该很熟悉吧~~, 右击框选择Add all Fields
然后设置ClientDataset的DataSetField属性,(这个时候那个字段已经自己出来了)
祝你好运别忘了给我加分哦!
第二个问题不好判断可能是你应用服务器没做好