系统老是提示第一行附近有语法错误,究竟是怎么回事啊??代码如下:
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into'+tablename+'values(:createdate,:title,:weather,:riji)');
parameters.ParamByName('createdate').Value:=label2.Caption;
parameters.ParamByName('title').Value:=trim(edit2.Text);
parameters.ParamByName('weather').Value:=trim(edit1.Text);
parameters.ParamByName('riji').Value:=memo1.Text;
execsql;
end;
错误提示后有一个兰色的条在倒数第二行那,就是execsql那一行。
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into'+tablename+'values(:createdate,:title,:weather,:riji)');
parameters.ParamByName('createdate').Value:=label2.Caption;
parameters.ParamByName('title').Value:=trim(edit2.Text);
parameters.ParamByName('weather').Value:=trim(edit1.Text);
parameters.ParamByName('riji').Value:=memo1.Text;
execsql;
end;
错误提示后有一个兰色的条在倒数第二行那,就是execsql那一行。
解决方案 »
- 为窗体TForm1增加了属性,但是object inspector中显示不出来
- 关于读取record记录文件,帮我看看
- 使用Calendar控件,如何将个别日期显示成不同颜色?
- 熟悉串口通信的请进,串口控件TUPBOPOWER可以使用在多线程中吗??
- 怎样判断一个数据库(ACCESS)里的某一个数据表是否存在?急!!
- QuickRep上边从一个数据集获取的结果如何分两或者多列放在报表上?
- 请问treeview控件的节点上有没有MOUSE双击事件?如果有的话是那一个?
- 关于收取邮件的问题
- 请问用Delphi怎么编写组件用于ASP,那里有这方面的资料????
- WHAT'S NEW IN DELPHI 6
- 实现自动刷新网址.
- 为什么把windows api这个版块放在delphi这里。。。
还有createdate对应的字段是什么类型的,在oracle中如果是日期型的,需要strtodate一下.
下面sql语句缺少空格,而且缺少插入字段
sql.Add('insert into'+tablename+'values(:createdate,:title,:weather,:riji)');
修改
sql.Add('insert into '+tablename+'(字段1,字段2,字段3,字段4) values(:createdate,:title,:weather,:riji)');
begin
close;
sql.Clear;
sql.Add('insert into'+tablename+'values(:createdate,:title,:weather,:riji)');
parameters.ParamByName('createdate').Value:=label2.Caption;
parameters.ParamByName('title').Value:=trim(edit2.Text);
parameters.ParamByName('weather').Value:=trim(edit1.Text);
parameters.ParamByName('riji').Value:=memo1.Text;
Showmessage(adoquery1.SQL.Text);//看看你的语句有没有问题,在sql server上执行一下
//execsql;
end;
改成 sql.Add('insert into tablename (createdate,title,weather,riji)values(:createdate,:title,:weather,:riji)');
SQL.ADD('insert into ' +.......