我有查询数据库的代码,如下所示:
uses Data.DB, Data.Win.ADODB;
// ...
var
cmd: TAdoCommand;
r: _Recordset;
firstName: string;
begin
cmd := TAdoCommand.Create(nil);
try
cmd.ConnectionString := 'Server=dbServer;Database=master';
cmd.CommandText := 'select FirstName from customers where id=123';
r := cmd.Execute;
firstName := '';
if not r.EOF then firstName := r.Fields.Item['FirstName'].Value
finally
cmd.Free
end
// ...
end
这行得通,但我想知道它是否不是理想的编写方式,因为该_Recordset
类型的开头是下划线。下划线似乎告诉我,此类型在某种程度上是“内部的”,并且不能在标准代码中使用。
有没有更标准的方式来编写这种代码?如果没有,为什么下划线在那里?
如果将Winapi.ADOInt添加到use子句,则可以删除下划线并使用RecordSet
。
这是因为在Data.Win.ADODB中,我们具有:
_Recordset = Winapi.ADOInt.Recordset;
在Winapi.ADOInt中,我们有:
Recordset = _Recordset;
_Recordset = interface(Recordset21)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句