| ''''select * from wfjcommu
where AName = ''''''''张三'''''''''''',
AConnection,adOpenStatic,adLockOptimistic,
adCmdText );
memo1.lines.add(''''********张三的内容如下********'''');
memo1.lines.add( ''''共有'''' + IntToStr
( ARecordSet.RecordCount ) + ''''条匹配的记录'''' );
{显示各个域的内容}
while not ARecordSet.eof do
begin
strTemp := '''''''';
for intIndex := 0 to ARecordSet.Fields.count - 1 do
strTemp := strTemp + ARecordSet.Fields
[intIndex].value+'''';'''';
memo1.lines.add( strTemp );
ARecordSet.MoveNext;//移到下条，Next
end;
{关闭数据集和数据库连接}
ARecordSet.close;
AConnection.close;
end;
上一页 [1] [2] |
