可以用Sql语句 Insert into Table1(field1,field2) values(:field1,field2)//增加 delete from table1 where 条件//删除 if Sate in[dsedit,dsinsert] then Post ;//保存 也可以先查询表,在通过Append、delete、edit等操作 例: With AdoQuery1 do begin Close; Sql.Clear; Sql.Add('select * from table1 where 条件 '); Open; //一下为增加记录 Append; FieldByName('field1').value :=值1; FieldByName('field2').value :=值2; if Sate in[dsedit,dsinsert] then Post ;//保存 //----一下为删除记录-------------- delete;end;
with adoquery do begin close; sql.clear; sql.add('insert into table(field) values(:field)');//新增 //sql.add('delete from table where field =:field');//删除 Parameters.ParamByName('field').value :='a' try execsql; except end; end;
增加:Append. 修改:Edit. 删除:Delete;
可以用DBNavigator 和 DBGrid 进行配合处理架。
ADOQUERY1.CLOSE; ADOQUERY1.SQL.CLEAR; ADOQUERY1.SQL.ADD('INSERT INTO TABLENAME(ID,NAME) values (1,''JOHN'')');//插入记录 ADOQUERY1.ExecSQL;//因为不需要返回记录集所以使用:ExecSQL方法。 ADOQUERY1.CLOSE; ADOQUERY1.SQL.CLEAR; ADOQUERY1.SQL.ADD('DELETE FROM TABLENAME WHERE ID=''JOHM''');//删除NAME为JOHN的记录 ADOQUERY1.ExecSQL;//因为不需要返回记录集所以使用:ExecSQL方法。
Insert into Table1(field1,field2) values(:field1,field2)//增加
delete from table1 where 条件//删除
if Sate in[dsedit,dsinsert] then Post ;//保存
也可以先查询表,在通过Append、delete、edit等操作
例:
With AdoQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('select * from table1 where 条件 ');
Open;
//一下为增加记录
Append;
FieldByName('field1').value :=值1;
FieldByName('field2').value :=值2;
if Sate in[dsedit,dsinsert] then Post ;//保存
//----一下为删除记录--------------
delete;end;
begin
close;
sql.clear;
sql.add('insert into table(field) values(:field)');//新增
//sql.add('delete from table where field =:field');//删除 Parameters.ParamByName('field').value :='a'
try
execsql;
except
end;
end;
修改:Edit.
删除:Delete;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('INSERT INTO TABLENAME(ID,NAME) values (1,''JOHN'')');//插入记录
ADOQUERY1.ExecSQL;//因为不需要返回记录集所以使用:ExecSQL方法。
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('DELETE FROM TABLENAME WHERE ID=''JOHM''');//删除NAME为JOHN的记录
ADOQUERY1.ExecSQL;//因为不需要返回记录集所以使用:ExecSQL方法。