//Arec,Acon是全局的变量,已声明
procedure TForm1.btnADDClick(Sender: TObject);
begin
try
Arec.open('select * from member',Acon,3,3);
showmessage(Arec.recordcount); //此时显示已打开表member,有5条记录
Arec.addnew;
Arec.fields['ID']:=integer(etID.Text);
Arec.fields['hname']:=ethname.Text;
Arec.fields['nname']:=etnname.Text;
Arec.fields['name']:=etname.Text;
Arec.fields['pwd']:=etpwd.Text;
Arec.fields['age']:=integer(etage.Text);
Arec.Fields['email']:=etemail.Text;
Arec.update;
Arec.close;
showmessage('添加记录成功!');
except
showmessage('添加记录失败!');
end;
end;
但是最后却怎么也添加不成功?文本筐的数据输入无误,都是按照数据库的字段要求输入的?
帮忙找一下错????
procedure TForm1.btnADDClick(Sender: TObject);
begin
try
Arec.open('select * from member',Acon,3,3);
showmessage(Arec.recordcount); //此时显示已打开表member,有5条记录
Arec.addnew;
Arec.fields['ID']:=integer(etID.Text);
Arec.fields['hname']:=ethname.Text;
Arec.fields['nname']:=etnname.Text;
Arec.fields['name']:=etname.Text;
Arec.fields['pwd']:=etpwd.Text;
Arec.fields['age']:=integer(etage.Text);
Arec.Fields['email']:=etemail.Text;
Arec.update;
Arec.close;
showmessage('添加记录成功!');
except
showmessage('添加记录失败!');
end;
end;
但是最后却怎么也添加不成功?文本筐的数据输入无误,都是按照数据库的字段要求输入的?
帮忙找一下错????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货