请教~~!

Question

程序源代码如下
procedure Tform1.ToolButton1Click(Sender: TObject);
begin
  with DataModule1.ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('insert support (spid,fmname,lname,tel,address,city,fax,EMAIL,web,range,inf)');
  sql.Add ('values(:spid,:fmname,:lname,:tel,:address,:city,:fax,:EMAIL,:web,:range,:inf)');
  parameters.ParamByName ('spid').value :=edit1.Text;
  parameters.ParamByName('fmname').value :=edit2.Text;
  parameters.ParamByName('lname').value :=edit3.Text;
  parameters.ParamByName('tel').value :=edit4.Text ;
  parameters.ParamByName('address').value :=edit5.Text ;
  parameters.ParamByName('city').value :=edit6.Text ;
  parameters.ParamByName('fax').value :=edit7.Text ;
  parameters.ParamByName('EMAIL').value :=edit8.Text ;
  parameters.ParamByName('web').value :=edit9.Text ;
  parameters.ParamByName('range').value :=edit10.Text ;
  parameters.ParamByName('inf').value :=edit11.Text ;
  execSQL;
  close;
  sql.Clear;
  sql.Add('select * from support');
  active :=true;
  end;
  //modalresult :=mrok
end;
运行过程中没有什么错误,但是就是无法插入数据~!

Answer 1

用企业管理看看，表support 中是否有已插入数据

Answer 2

Support 中还没有插入数据~~!

Answer 3

1、提出错误信息来
2、insert ... value ....中的value 前面加个空格
3、如果还不行就不要用参数传递了，直接写成"insert into.... value('" + edit1.Text + "','"+edit2.Text + "','" + ........

Answer 4

先不要用存储过程，写个sql语句，执行看能不能把数据插进去，

Answer 5

似乎你的SQL语句写错了
with ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('INSERT INTO project (id, name)');//就是这句话 ，少了into
  sql.Add ('values(:id,:name)');
  parameters.ParamByName ('id').value :=444444;
  parameters.ParamByName('name').value :='dfdfd';
  execSQL;
  close;
  sql.Clear;
  sql.Add('select * from project');
  active :=true;
  end;

Answer 6

写死sql试试，不行的话自己作个简单的Demo看能不能加入记录，要还不行再用BDE试试，如果都不行，那么用另外类型的数据库来试试看。总之，要先找出问题所在，才好解决它