请问在数据库中删除一条记录是显示记录中的一个字段应该怎么办...

[qdsunboy]

请问在数据库中删除一条记录是显示记录中的一个字段应该怎么办...
例如
procedure TForm1.Button4Click(Sender: TObject);
begin
if messagebox(form1.Handle,'要删除这条记录吗?','删除',mb_yesno+mb_iconinformation)=mryes then
begin
adotable1.Delete ;
end;
end;
**********************
这个样子只显示'要删除这条记录吗?'请问怎样怎样实现在这个中间加上例如DBEDIT1或者指定的一个字段中的字符串而变成'要删除王某某这条记录吗?'
谢谢.

[gmc007]

if messagebox(form1.Handle,'要删除' + adotable1.fieldbyname('name').asstring + '记录吗?','删除',mb_yesno+mb_iconinformation)=mryes then

[qdsunboy]

回复上面的大哥..我试了可是不对亚...adotable1没有filed.....这个属性.

[jabmoon]

不会吧？？？ADOTable会没有FieldByName吗？？？？？？？？？
或者用Fields[0].AsString也可以。

[qdsunboy]

还是不对提示
Incompatible types: '<name>' and '<name>' 类型不兼容请问应该怎么作呀.

[laidh]

adotable有FieldbyName属性。
另外，你的那个字段是string类型的吗。

[qdsunboy]

字段是姓名...肯定是STRING类型的..那里还不对那?

[blazingfire]

var
s:string;
begin
s:='要删除'+ADOTable1.FieldByName('name').AsString+'记录吗？’;
if messageBox(handle,pChar(s),'',mb_yesno+mb_iconinformation)=mryes then
…………

[blazingfire]

messagebox()中的text和caption是pchar类型的不是string类型的。你遇到的错误是类型
不匹配的错误。