时间戳

首页 > 解决方案 > Datasnap 客户端引发“无效序数”错误

delphi - Datasnap 客户端引发“无效序数”错误

问题描述

我创建了一个 Datasnap 服务器（使用向导的独立 tcp/ip）并添加了以下服务器方法：

function TServerMethods1.GetSomeData(tablename : String): TDataSet;
var 
  qry: TSQLQuery;
begin
  qry := TSQLQuery.Create(nil);
  qry.SQLConnection := SQLConnection1;
  qry.SQL.Add('select *');
  qry.SQL.Add('from ' + tablename);
  qry.Open;
  Result := qry;
end;

在客户端，我有一个“连接”ClientModuleUnit的TSQLConnection->TsqlServerMethod->TDataSetProvider->TClientDataSet->DataSource->dBGrid链来从服务器检索只读数据。有关于如何做到这一点的教程，我已经做到了。

procedure TForm3.GetSomeDataClick(Sender: TObject);
begin
  if combobox1.ItemIndex > -1 then
  begin
    // ClientModule.SQLConnection1.Close;
    ClientModule.ClientDataSet1.Close;
    ClientModule.ClientDataSet1.Params.ParamValues['TableName'] := Trim(combobox1.Text);
    ClientModule.ClientDataSet1.Open;
  end;
end;

combobox1 中有几个表名。第一次选择表时，将检索数据并填充 DBGrid。如果我然后选择一个字段比第一个表少的表，我会得到一个Invalid Ordinal异常。有趣的是，如果我首先选择一个字段较少的表，那么第二次调用会使用第一次调用中的字段 - 并不是所有字段都会显示。

错误被提出Data.DBXCommon.TDBXValueList.GetValueType- 太深太复杂了，我真的无法理解。

当然，如果我关闭并打开 Datasnap 连接（上面已评论），则invalid ordinal不会引发消息并且它会按我预期的那样工作。

这是一个错误，还是只是当前 Datasnap (DBX) 实现的一个限制？

标签： delphidatasnapdelphi-10.2-tokyo

解决方案

此行为意味着您的字段在调用之间保留。所以我会在用新数据加载它们之前清除这些数据集（sqlServerMethod1 和 Clientdataset1）上的字段。

procedure TForm3.GetSomeDataClick(Sender: TObject);
begin
  if combobox1.ItemIndex > -1 then
  begin
    ClientModule.ClientDataSet1.Close;

    ClientModule.ClientDataSet1.FieldDefs.Clear;
    ClientModule.sqlServerMethod.FieldDefs.Clear;

    ClientModule.ClientDataSet1.Params.ParamValues['TableName'] := Trim(combobox1.Text);
    ClientModule.ClientDataSet1.Open;
  end;
end;

推荐阅读