用ADOTable 怎么向数据库添加数据？

Question

如题！
已经有一个 FlatEdit 和一个按钮，只要按下按钮，就可以把FlatEdit中的数据添加到数据库，下面的代码该怎么写？ 谢谢！        procedure TForm5.FlatButton1Click(Sender: TObject);
begin
   str:=FlatEdit1.Text;
   
end;

Answer 1

楼主需求说的不是很清楚！
ADOTable.FieldByName('字段名').asstring := FlatEdit1.Text; //str

Answer 2

ADOTable.FieldByName('字段名').asstring :=FlatEdit1.Text; 
ADOTable.FieldByName('字段名').asinteger :=strtoint(FlatEdit1.Text); 
ADOTable.FieldByName('字段名').assdatetime :=strtodatetime(FlatEdit1.Text); 
......
平你的想象吧

Answer 3

adotable.edit;
ADOTable.Fields[i].asstring := FlatEdit1.Text;
adotable.post;

Answer 4

adotable.append;
ADOTable.FieldByName('字段名').asstring :=XXXXX; 
ADOTable.FieldByName('字段名').asstring :=XXXXXXXX; 
ADOTable.FieldByName('字段名').asstring :=XXXXXXXXX; 
......
adotable.post;

Answer 5

adotable.appen;
ADOTable.Fields[i].asstring := FlatEdit1.Text;
adotable.post;