各位大虾~最近在做一个课程设计上学期学的delphi全忘光了 我有些地方有疑惑 麻烦大家赐教下!
我有一个access表 想利用adoquery给里面 增删改数据!~
  增加数据时由 3个edit! 分别是 edit1,edit2,edit3 里面的text内容插入表中 请问要如何实现!~

解决方案 »

  1.   


    with adoq do 
    begin
      close;
      sql.Clear;
      sql.Add('insert into tablename(filed1,filed2,filed3)values(:a,:b,:c);
      parameters.ParamByName('a').Value := Trim(edit1.Text);
      parameters.ParamByName('b').Value := Trim(edit2.Text);
      parameters.ParamByName('c').Value := Trim(edit3.Text);
      ExecSQL;
    end;
      

  2.   

    adoquery1.AppendRecord([edit1.text,edit2.text,edit3.text]);你只是人懒而已。。
      

  3.   

    不好意思上面的有点错误!with adoq do 
    begin
      close;
      sql.Clear;
      sql.Add('insert into tablename(filed1,filed2,filed3)values(:a,:b,:c)');
      parameters.ParamByName('a').Value := Trim(edit1.Text);
      parameters.ParamByName('b').Value := Trim(edit2.Text);
      parameters.ParamByName('c').Value := Trim(edit3.Text);
      ExecSQL;
    end;
      

  4.   

    with adoq do 
    begin
      close;
      sql.Clear;
      sql.Add('insert into tablename(学号,班级,姓名) values(:a,:b,:c)');
      parameters.ParamByName('a').Value := Trim(edit1.Text);
      parameters.ParamByName('b').Value := Trim(edit2.Text);
      parameters.ParamByName('c').Value := Trim(edit3.Text);
      ExecSQL;
    end;
      

  5.   


    begin
      adoquery.close;
      adoquery.sql.Clear;
      adoquery.sql.Add('insert into tablename(字段1,字段2,字段3)values('''+eidt1.text''','''+edit2.text''','''+edit3.text''')');
      adoquery.ExecSQL;
    end;
      

  6.   

    adoquery.Insert;
    adoquery.FieldByName('字段1').AsString := eidt1.text;  
    ...
    ...
    adoquery.Post;