为什么这段代码不能实现往数据库中添加记录？

Question

query.Insert;
//  query.FieldByName('PgID').AsInteger:=strtoint(edit1.text);
  query.FieldByName('PgName').AsVariant:=edit2.Text;
  query.FieldByName('PgSize').AsVariant:=edit3.Text;
  query.FieldByName('PgTitle').AsVariant:=edit4.Text;
  query.FieldByName('PgTimecodeIn').AsVariant:=edit5.Text;
  query.FieldByName('PgDuration').AsVariant:=edit6.Text;
  query.FieldByName('PgBarcode').AsVariant:=edit7.Text;
  query.FieldByName('PgServerIP').AsVariant:=edit8.Text;
  query.FieldByName('PgStation').AsVariant:=edit9.Text;
  query.FieldByName('PgType').AsVariant:=edit10.Text;
  query.FieldByName('PgType_AD').AsVariant:=edit11.Text;
  query.FieldByName('PgProfile').AsVariant:=edit12.Text;
  query.FieldByName('PgBitRate').AsVariant:=edit13.Text;
  query.FieldByName('PgLifeEnd').AsVariant:=edit14.Text;
  query.FieldByName('PGOther').AsVariant:=edit15.Text;
  query.Post;
这段代码执行后，数据库中并没有添加的记录，其中PgID是关键字段，数据库用的是SQL Server?

Answer 1

query.Insert;改为
query1.append;AsVariant改为.asstring;

Answer 2

有没有设置query.RequestLive = True

Answer 3

设置过了，为TRUE，编译，运行都没有错，但是就是不往数据库中加记录，气死我了！

Answer 4

如果连接的是sql server 为何不用adoquery.

Answer 5

在code最前面写上query.open;
看看行不行

Answer 6

拜托，已经用了QUERY，骑虎难下了，帮我解决目前的问题吧！谢谢各位了！

Answer 7

如果还不行，那就是你query的设置的问题了，还也许是你看错了数据库，也许添加上了呢，：）

Answer 8

设成缓存更新的话用post不能使它更新。（当然，在postEvent中提交除外了）
strtoint(edit1.text);这种做法有问题。

Answer 9

捕捉一下有没有错误try
  Post;
except
  on error E:Exception do showmessage(E.message);
end;

Answer 10

你用的SQL SERVER的跟踪器跟踪一下,我估计是有的字段的值和定义的类型有出入!!才会ROLLBACK的!所以插入不成功!你把跟踪的信息贴上来看一看!!!

Answer 11

或着是你把上面那一堆代码,写成SQL语句在查询分析器里运行一下看看行不行,别忘了跟踪!

Answer 12

你query.insert后面的两个斜杠是什么意思？？？

Answer 13

摇摇头，没办法……
TQuery一般来说不要用这种办法添加记录。用这东西添加一般应该这样写：
with Query1 do
 begin
  close;
  SQL.clear;
  SQL.add(format('Insert 表 value(''%s'',''%s''....)',[Edit1.Text,Edit2.Text...]));
  ExecSQL;//千万不要用Open
 end;

Answer 14

是不是三层结构？试一下 ApplyUpDates(-1)