大家好！请问在DELPHI中，如何通过一个按钮来向数据库增加记录？

大家好！请问在DELPHI中，如何通过一个按钮来向数据库增加记录？
我是用access数据库的，已经用adoconnection1和access数据库连接好了，如何把edit1，edit2……所输入的内容，添加到数据库相应字段里？如何通过一个按钮来实现。

10 个解决方案

#1

可以用adoquery组件

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='insert into YourTABLE(字段1，字段2) values(:字段1,:字段2)';
// ADOQuery.SQL.Add('insert into YourTABLE values(:字段1)');
ADOQuery.Parameters.ParamByName('字段1').Value:=trim(Edit1.Text);
ADOQuery.Parameters.ParamByName('字段2').Value:=trim(Edit2.Text);
ADOQuery.ExecSQL;
end;

#2

......
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Connection:=ADOConnection1;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from 数据表的名字';
  ADOQuery1.Open;//打开数据表
  ADOQuery1.Append;//添加新记录
  ADOQuery1.FieldByName('字段名字').AsString:=edit1.Text;//对字段赋值
  //....(其他字段的赋值语句)
  ADOQuery1.Post;//提交
end;
......

#3

引用楼主  的回复:

大家好！请问在DELPHI中，如何通过一个按钮来向数据库增加记录？
我是用access数据库的，已经用adoconnection1和access数据库连接好了，如何把edit1，edit2……所输入的内容，添加到数据库相应字段里？如何通过一个按钮来实现。

这是最基本的delphi操作，还要来问？ 那学delphi干嘛？ 任何一本基础的书都有介绍

#4

引用 2 楼  的回复:

Delphi(Pascal) code
......
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Connection:=ADOConnection1;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from 数据表的名字';
  ADOQu……

二楼的回答很完整了。

#5

插入记录的代码:
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('insert into 表名(字段1，字段2) values('''+ Edit1.Text +''','''+ Edit2.Text +''')');
ADOQuery.ExecSQL;

如果要马上能显示出来,还需再加上一个查询的刷新语句
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select * from 表名');
ADOQuery.Open;

#6

通过一个按钮来向数据库增加记录
有两种方式：
１) sql语句方式
２）控件方式

楼上几位说的都基本上对的
我只是总结一下而已

#7

楼上的都已经回答得很完整了，可以结贴了！

#8

楼上的都已经回答得很完整了，可以结贴了！

#9

我也正在学习这方面，一起进步！

#10

//拖个ADOQuery控件到窗体上啊
......

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do 
  begin
    Close;
    SQL.Clear;
    SQL.Add('insert into TableName(字段1，字段2,字段3)');
    SQL.Add('values('''+trim(Edit1.Text)+''','''+trim(Edit2.Text)+''','''+trim(Edit3.Text)+''')');
    try
      ExecSQL;
    except
      showmessage('插入失败！');
      exit;
    end;
    showmessage('插入成功！');
  end;
end;