各位大虾~最近在做一个课程设计上学期学的delphi全忘光了 我有些地方有疑惑 麻烦大家赐教下!
我有一个access表 想利用adoquery给里面 增删改数据!~
增加数据时由 3个edit! 分别是 edit1,edit2,edit3 里面的text内容插入表中 请问要如何实现!~
我有一个access表 想利用adoquery给里面 增删改数据!~
增加数据时由 3个edit! 分别是 edit1,edit2,edit3 里面的text内容插入表中 请问要如何实现!~
解决方案 »
- Dbgrideh1.Canvas.lock 多线程问题
- 如何判断pagecontrol当前的子page(tabsheet)?
- 在线等待!FastReport中如何实现用户自定义字段进行打印!马上揭贴!!
- 求发票金额栏控件
- 关于DLL的问题
- 大家好,好久没有来了 ,一些贴没有接 信誉分少了 道歉 散分!5:00结贴
- 请问怎么得到这样格式的日期20030422
- 自己都有点不好意思的问题问大家,50分!!在线等待~~~~~
- 请问目前那一本参考书对DELPHI初学者有很大提高?
- 各位老铁 现在还有人用Delphi吗,有的话留个信 取个暖
- Win98下无法获取系统当前窗口的标题?NT却可以?
- 散分,顺带庆祝稿件录用达到10篇,最后加个问题
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;
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;
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;
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;
adoquery.FieldByName('字段1').AsString := eidt1.text;
...
...
adoquery.Post;