insert:在表中当前指针后加入一条记录,而还有一个append是在表尾追加记录; if Table8.Active=false then datamodule2.Table8.Open;//增加记录前确定表是打开的。 datamodule2.Table8.Append;//在表尾追加 datamodule2.Table8.FieldByName('ikey').asinteger:=i+1;//向表中的ikey字段内容。 datamodule2.Table8.FieldByName('content').asstring:=trim(memo3.Text);//向content字段加入内容 datamodule2.Table8.FieldByName('solution').asstring:=trim(memo8.Text);//向solution字段加入内容 datamodule2.Table8.FieldByName('source').asstring:=trim(edit12.text);//向source字段加入内容。 datamodule2.Table8.Post;//添加记录后要提交。
呵呵,查帮助了: Query1.Close;Query1.SQL.Clear; Query1.SQL.Add('Delete from Country where Name = ''Argentina''');//此处是相应的添加,删除,修改的SQL语句了; try //加上异常处理 Query1.ExecSQL; except end;
修改可以在DBGrid中直接进行,把DBGrid与表相连,当想修改表中内容时,把DBGrid的Options中的Editing属性改为true,如果在程序中写就是 dbgrid6.Options:=dbgrid6.Options+[dgEditing]; //设置dgediting为true 后面的加号变为减号就是false,这样直接改变DBGrid中的内容,然后再提交库中的内容就改变了。 当然,这些数据库的操作都可以用query来实现。附:用table定位数据记录: //找到所有table8中symbol字段值为3的记录,并删除。 while not datamodule2.Table8.eof do//判断记录指针是不是指向表尾,eof为表尾,bof为表头。 begin if datamodule2.Table8.FieldByName('symbol').asinteger=3 then begin datamodule2.Table8.edit; datamodule2.Table8.Delete; end else datamodule2.Table8.next;//每次执行完一条记录的操作,就把指针下移,直到表尾 记录也执行完毕。 end;//
1.可以直接用SQL语句insert into ..... 2.可以使用DELPHI数据控件adoquery,table等的方法append
append;添加
edit;编辑
邮箱给我给源码!
if Table8.Active=false then
datamodule2.Table8.Open;//增加记录前确定表是打开的。
datamodule2.Table8.Append;//在表尾追加
datamodule2.Table8.FieldByName('ikey').asinteger:=i+1;//向表中的ikey字段内容。
datamodule2.Table8.FieldByName('content').asstring:=trim(memo3.Text);//向content字段加入内容
datamodule2.Table8.FieldByName('solution').asstring:=trim(memo8.Text);//向solution字段加入内容
datamodule2.Table8.FieldByName('source').asstring:=trim(edit12.text);//向source字段加入内容。
datamodule2.Table8.Post;//添加记录后要提交。
Query1.Close;Query1.SQL.Clear;
Query1.SQL.Add('Delete from Country where Name = ''Argentina''');//此处是相应的添加,删除,修改的SQL语句了;
try //加上异常处理
Query1.ExecSQL;
except
end;
当表中指针已经指向一条记录时,用
datamodule2.Table8.edit;
datamodule2.Table8.Delete;
将表删除,删除后提交。(post)
当然,这些数据库的操作都可以用query来实现。附:用table定位数据记录:
//找到所有table8中symbol字段值为3的记录,并删除。
while not datamodule2.Table8.eof do//判断记录指针是不是指向表尾,eof为表尾,bof为表头。
begin
if datamodule2.Table8.FieldByName('symbol').asinteger=3 then
begin
datamodule2.Table8.edit;
datamodule2.Table8.Delete;
end
else
datamodule2.Table8.next;//每次执行完一条记录的操作,就把指针下移,直到表尾 记录也执行完毕。
end;//
2.可以使用DELPHI数据控件adoquery,table等的方法append
sql := 'insert into t1(aa) values('11')'
adoquery.sql.add(sql)
adoquery.executesql;