ARecordSet.delete;//删除，delete
ARecordSet.Update;//更新，在Delphi不需要
ARecordSet.MoveFirst;//移到首条，First
memo1.lines.add(********删除了最后一条记录后的数据表的内容如下********);
{显示各个域的内容}
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;{关闭数据集}
{用SQL语句进行查询,查询姓名为“张三”的记录}
{注意，在SQL语句中，字符串应该用单引号包括起来}
ARecordSet.open( 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;
以上程序在PWIN98 DELPHI3.0 PWS(Personal Web
Server)4.0下调试通过．关于ADO对象的详细资料，请参见ASP帮助文件或Interdev帮助文件或OFFICE2000的有关文档.
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
