???????????
你的str在哪里执行了?????
你用的是table控件,而又想用sql语句来插入????????????
建议用
with form1.table1 do
begin
insert;
fieldbyname(field).asstring:=val;
post;
end;来进行插入
你的str在哪里执行了?????
你用的是table控件,而又想用sql语句来插入????????????
建议用
with form1.table1 do
begin
insert;
fieldbyname(field).asstring:=val;
post;
end;来进行插入
解决方案 »
- 急!发tom的邮件可以,163的就提示“bad sequence of commands”急!
- 线程中使用idhttp或者ics以后,cpu资源占用过高,如何处理?
- 简单却搞不定->调用DLL问题:Function needs result type
- 寻求计算一个字符串表达式值的算法?
- 烦,周六还上班!如何获得文件夹的大小?
- 一个容易得分的问题 2分‘’‘’‘’‘’‘’‘’
- 能否介绍一些delphi画曲线图资料的网站
- 过年了,祝大家新春快乐
- 如何批量更改选择框属性?
- 这里人不少,不过真正精通delphi的好像不多!!!!!有高手在吗
- time查询
- 请问如何在STRINGGRID中加入其它控件(例如检查框,下拉列表框等)
但是
要删除呢?我用了好几种方法就是不行
谁教教我吧
with query do
begin
close ;
sql.clear ;
sql.add('insert into....') ;
ExecSQL ;
end;
如果是用query则要确定唯一标识
比如我们认为 field为唯为标识,值为val
则用语句delete from table where field=val;
begin
with Query do
begin
Close ;
//删除
Sql.text := 'delete from t_csgl where '+Field+'="'+Val+'"';
execSql ;
//新增
Sql.text := 'Insert into t_csgl ('+Field+') values("'+Val+'")';
execSql ;
end ;
end ;
procedure Tadd_form.del(field:string ;val:string) ;
begin
if table1.locate(Field ,[Val],loCaseInsensitive) then //查找匹配记录
Table1.delete ;
end ;