sql语句插入数据的代码怎么写?(20分)

  • 主题发起人 agamomnon
  • 开始时间
A

agamomnon

Unregistered / Unconfirmed
GUEST, unregistred user!
使用两个eidt,一个button,希望同过button将edit中的text作为字段值
insert到数据库中,应该怎么写来着,
如果定义两个变量并赋予edit的text值时又如何处理?
procedure Tfrmfpkc.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.add('insert into fp(fppl,number1)')
? sql.add('values(''"+edit1.text+"','"+edit2.text"'');
????
end;
 
用table控件
table1.insert;
table1.fieldbyname('FIELD1').asstring:=edit1.text;
table1.fieldbyname('FIELD2').asstring:=edit2.text;
table1.post;
 
用procedure Tquery.ExecSQL
在你的代码后面加入ExecSQL即可。
老兄,你也太穷了,都不好意思再要你的分了。
 
procedure Tfrmfpkc.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.add('insert into fp(fppl,number1)')
sql.add('values(''"+edit1.text+"','"+edit2.text"'');
sql.execSql;
end;
 
procedure Tfrmfpkc.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.add('insert into fp(fppl,number1)')
//如果字段类型为字符型则用:
sql.add(' values('+quotedstr(edit1.text)+','+quotedstr(edit2.text)+')');
//如果字段为数值型则用strtoint 或strtofloat等转换函数先转换,如:
sql.add(' values('+strtoint(edit1.text)+','+strtoint(edit2.text)+')');
然后执行:
sql.execSql;
end;
end;
 
sql.add('values('+quotedstr(edit1.text)+','+strtoint(edit2.text)+')');
提示:
[Error] fpkc.pas(58): Incompatible types: 'String' and 'Integer'
是什么意思啊?
检查一遍,发现漏了括号,还有直接用execsql行,用sql.execsql不行
分太少了,问题又太多了,只好省着点用。
 
这样的语句也写.
 
老兄,我都不好意思说你了,strtoint(edit2.text),你看看书吧!edit.text的类型和
字符串string类型是兼容的啊!
 
没听明白
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
750
import
I
顶部