大家好!请问在DELPHI中,如何通过一个按钮来向数据库增加记录?
我是用access数据库的,已经用adoconnection1和access数据库连接好了,如何把edit1,edit2……所输入的内容,添加到数据库相应字段里?如何通过一个按钮来实现。
我是用access数据库的,已经用adoconnection1和access数据库连接好了,如何把edit1,edit2……所输入的内容,添加到数据库相应字段里?如何通过一个按钮来实现。
解决方案 »
- 太喜欢delphpi了.可惜一直没时间学
- 在delphi中如何动态建立Access数据库、表???
- 怎样获得delphi编译之后的版本号,在线急
- DELPHI中写的DLL在BCB中调用的问题!!
- 请问如何判断记录?
- 特急:请问如何把Button1,Button2...Button9设置为一个数组Button[8]?不够可加分!!
- 受不了啦!上CSDN老是出现运行期错误提示框,不知怎样解决?
- TABLE1.DATASOURCE,TABLE1.DATANAME是不是只能连接一个表,而且程序理只读,不可写?
- 网络问题,大家随便提点建议
- 谁要
- 怎么查询评分最高的前五名成员
- delphi intraweb中使用webapplication的一个问题
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;
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;
......
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;
有两种方式:
1) sql语句方式
2)控件方式楼上几位说的都基本上对的
我只是总结一下而已
//拖个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;