SqlStr := 'Insert ws Values(''' + Edit1.Text + ''', ''' + Edit2.text + ''')';
解决方案 »
- delphi开发webservice能否在非windows系统机器上运行??
- 急啊,如何只让DBGrid中第一条记录,第二列就也是Cell(1,2)的这个单元格的底色变为红,而其他保留啊。
- 寻求apache的so,或者dll的发布方法
- 再开新贴,老问题,在线等。。。
- 求日期算法!!!
- 是用一个数据库好,还是多个好
- 同样的问题?!
- 最多分求救!通过internet连接远程数据库的问题!
- 我用Table连接Access 数据库,程序运行时出现 Database Login窗口,它是干什么的?
- 实在不行了,就考研!针对VC++版里困惑的女生!
- stringGrid怎么使用?
- 编程的唯一内功,来鸟快看
sorry
editlimian
是edit里面
//...................
TheQuery: TQuery;
SqlStr: String;
begin
TheQuery := TQuery.Create(nil);
try
SqlStr := 'Insert ws Values(''' + Edit1.Text + ''', ''' + Edit2.Text + ''')';
with TheQuery do
begin
Close;
SQL.Clear;
SQL.Add(SqlStr);
Execute;
end;
finally
TheQuery.Free;
end;
end;
2、在BUTTON的事件的适当位置加入以下代码
with query1 do
begin
append;
FieldByName('XM').asstring := edit1.text;
FieldByName('DW').asstring := edit2.text;
post;
end;
query1.sql.text:='insert into ws Values(''' + Edit1.Text + ''', ''' + Edit2.text + ''')';
query1.sql.Execsql;
1、你query的requestlive属性可能没有设成true。
2、如果你是直接从query里录入,而query里的字段属于两个或多个表(数据库里的表),而且没有用updatesql去更新,就可能出现说query是readonly的提示。
直接用sql语句写入数据库就会不存在这个问题
你的sql语句是多表查询,或有order by之类
和Table一样呀!就是要把Query1.RequestLive设置成True;Query1.Insert;query的RequestLive属性似乎不太好用,:(