用Tquery控件怎么向paradox7格式的表插入记录 在线等待

Question

新手：）  见笑了。。如题   还有就是字段怎么付值？
望大家提点提点  谢谢啦。

Answer 1

table.append;
table.FieldByName('Company').AsString:=Edit1.text;
table.post;

Answer 2

如：表名 A，字段为 a,b//其中a为整形，b为string型：
Query1.close;
Query1.sql.clear;
Query1.sql.add('insert into A (a,b) values(' + edit1.text + ',''' + Edit2.text + ''')');
Query1.ExecSQL;

Answer 3

table好象不行：（  我是用Tquery控件  不是用Ttable控件我是先打开数据库
qu1.Close;
qu1.SQL.Clear;
qu1.sql.Add('select * from hwl');
qu1.Open;
然后就是想在表hwl中添加条记录  就知道怎么实现了  
我用qu1.append;
    qu1.FieldByName('id').AsString:=Edit1.text;
    qu1.post;
运行程序是出现  qu1:cannot modify a read -only dataset
这是怎么回事？

Answer 4

qu1.Edit;   //多加这句看看
    qu1.append;
    qu1.FieldByName('id').AsString:=Edit1.text;
    qu1.post;

Answer 5

to： lin can wen  多加也不行  还是一样错误：）我觉得还是用你这个好
如：表名 A，字段为 a,b//其中a为整形，b为string型：
Query1.close;
Query1.sql.clear;
Query1.sql.add('insert into A (a,b) values(' + edit1.text + ',''' + Edit2.text + ''')');
Query1.ExecSQL;
我先试试

Answer 6

qu1.Close;
qu1.SQL.Clear;
qu1.sql.Add('select * from hwl');
qu1.Open;
qu1.Edit ;
Qu1.FieldByName('...').AsString := ... ;
...Qu1.Post ;