我有查询数据库的代码,如下所示:
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类型的开头有下划线。似乎下划线告诉我这个类型在某种程度上是“内部的”,不能在标准代码中使用。
有没有一种更标准的方式来编写这种代码?如果不是,为什么会有下划线?
发布于 2021-01-21 14:32:59
如果在use子句中添加Winapi.ADOInt,则可以删除下划线并使用RecordSet。
这是因为在Data.Win.ADODB中我们有:
_Recordset = Winapi.ADOInt.Recordset;在Winapi.ADOInt中,我们有:
Recordset = _Recordset;
_Recordset = interface(Recordset21)https://stackoverflow.com/questions/65821898
复制相似问题