我用的是table 组件
具体代码是这样的
table1.Open;
table1.Edit;
table1.Fields[0].Value:=edit2.Text;
table1.Fields[1].Value:=edit1.Text;
table1.Fields[2].Value:=edit3.text;
table1.Post; edit1.text:='';
edit2.Text:='';
edit3.Text:='';
table1.Close;
具体代码是这样的
table1.Open;
table1.Edit;
table1.Fields[0].Value:=edit2.Text;
table1.Fields[1].Value:=edit1.Text;
table1.Fields[2].Value:=edit3.text;
table1.Post; edit1.text:='';
edit2.Text:='';
edit3.Text:='';
table1.Close;
我的数据总是只能插在第一行 而且总是被替代 不能往下添加
table1.edit; table1.fields[0].value:=edit1.text;
table1.fields[1].value:=edit2.text;
table1.fields[2].value:=edit3.text;
table1.append; 或者 table1.insert;
edit1.text:='';
edit2.text:='';
edit3.text:='';
table1.close;这样都可以插入数据 具体就是数据总是被替代 我的数据表里总是只有2条数据
你用 with talble1 do
begin
try
Append;
fieldByName('SNo').value:=edit1.text;//SNo是数据库表中的列名,下面的SName,Sex同理
fieldByName('SName').value:=edit2.text;
fieldByName('Sex').value:=edit3.text;
Post;
except
showmessage('数据添加出错!');
end;
end;