【结贴】如何通过代码查询数据库值？**

matthaus

需求：现在有个变量我希望通过查询数据库值赋值，请问如何操作，能不能写出简单代码，我没做过通过编码查询数据库值，谢谢？

zfang

比如写个函数，从数据库中获取值
function getvalue() : String;
var
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(AContext.Owner);
  try
  lQuery.ConnectionString := 'DATABASEURL=Biz:\SYSTEM\System.DataBase';
    lQuery.Commandtext := ' select guid from tperson ';
    lQuery.Open;
    result := lQuery.FieldByName('GUID').AsString;
  finally
    lQuery.Free;
  end;
end;

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=25215

matthaus

谢谢二位，我看看！

matthaus

能不能通过TDataSetBroker构造SQL语句查询，返回新的数据集呢？这样不是简单些吗？

lixy

tquery如果只查询值的话，是最简便的。
TDataSetBroker只是数据集代理，会影响和这个数据集关联的现实控件值的显示。

matthaus

我就是要这个效果？这样的话该怎么写呢？

lixy

TSQLDataSet(DBroker_KF.DataSet).SQLFilter := 'ZCBH='''+strZDBH+'''';
TSQLDataSet(DBroker_KF.DataSet).SQLFiltered := True;
TSQLDataSet(DBroker_KF.DataSet).Open;

matthaus

不能重新定义DBroker_KF.DataSet的SQL语句吗，只能增加过滤条件吗？

lixy

TSQLDataSet(ds2.DataSet).SQL.Text :=strfilter ;
http://bbs.justep.com/forum.php?mod=viewthread&tid=25852
你可以搜索论坛tsqldataset去找自己的答案。