呵呵,用SQL语句呀, insert into 表名(字段名1,字段名1) Values (值1,值2)
解决方案 »
- 如何在Delphi中实现将Excel中数据导入数据库
- 关于在image控件上画图后滚动条问题
- 求HTML代码解析器或分析函数或类
- CheckBox和RadioButton在SQLserver2000里面读取状态,必须这么写吗?有没有简单的办法!!
- 异常处理出错EOleException
- progressbar组件如何计算百分比进度,又如何把当前的百分比进度显示在组件中呢?
- 大家介绍基本学数据库的好书哦~~~~
- 现在Orcale项目,简单的C/S模式,一个人工,一小时应该给多少?(比较实际的报价)
- 一个关于batchmove的问题!
- Delphi怎么调用C++语言的dll
- 如何在richedit中实现文本悬挂缩进?如何增大行距?
- Delphi + SQL server寻求项目合作。
Database.StartTransaction;
改完后立刻提交,用
Database.Commit;
提交失败就回退
Database.Rollback;如下:Database.StartTransaction;
try
.......
Query.ExecSql();
Database.Commit;
except
Database.Rollback;
end;
Query1.FieldValues['ALPHANUMERIC'] := Edit1.text;
Query1.FieldValues['INTEGER'] := StrToInt(Edit2.text);
Query1.Post;
另外,你不妨试一下AppendRecord方法,不用post了!
query1.append;
query1.fieldbyname('案号').asstring:=edit1.text;
query1.fieldbyname('field').asstring:='A';
query1.post;
post其实什么也没做,只是把数据放到缓存中。
这样你可以把大量的数据存放到缓存中。
保存时用toolsqry
with query1 do
begin
first;
while not eof do
begin
if fieldbyname('mardfield').asstring='A' then
begin
toolsqry.Close;
toolsqry.SQL.Text:='insert into tablename …… where '''案 号'''='+edit1.Test;
toolsqry.ExecSQL;
end;
next;
end;
end;