procedure TForm1.BitBtn1Click(Sender: TObject);
var sql:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
//adoquery1.SQL.Add('insert into users (text1,userid) values('ss','03')');
//adoquery1.SQL.Add('insert into users (text1, userid) values("'+1+'","'+100+'")');
sql:= 'insert into users(text1,userid) values ("'+edit1.Text+'","'+edit2.Text+'")';
adoquery1.SQL.Add(sql);
adoquery1.ExecSql;end;
其中USERS表就2个字段text1和userid都是char出现错误是
“在此上下文中不允许使用'edit1'.此处只允许使用常量,变量,表达式。不允许使用列名”
错误提示中的edit1是我的edit控件上的text怎么会这样,语句中哪里有错误阿?
var sql:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
//adoquery1.SQL.Add('insert into users (text1,userid) values('ss','03')');
//adoquery1.SQL.Add('insert into users (text1, userid) values("'+1+'","'+100+'")');
sql:= 'insert into users(text1,userid) values ("'+edit1.Text+'","'+edit2.Text+'")';
adoquery1.SQL.Add(sql);
adoquery1.ExecSql;end;
其中USERS表就2个字段text1和userid都是char出现错误是
“在此上下文中不允许使用'edit1'.此处只允许使用常量,变量,表达式。不允许使用列名”
错误提示中的edit1是我的edit控件上的text怎么会这样,语句中哪里有错误阿?
解决方案 »
- 单机版频繁查询5千个数据,用access还是直接把数据保存到代码里面?
- delphi工程能像pb一样生成多个pbl来减少exe的体积?
- list index out of bounds(0)
- ServerSocket向ClientSocket数据的问题?
- 如何在中间层中使用全局变量,如果能有方法,请详细告之,将另开新贴给分
- 在StringGrid自动换行的时候为什么出现了字迹模糊情况?
- 如何让speedbutton也会有MouseLeave
- 如何去掉DBGrid的滚动条??
- 借圣诞喜庆之日,给外甥女征集名字 ,灌水一贴
- 如何用Delphi 完成进程之间的通讯: 应用动态数据交换(DDE),需要实例???
- 为何我用fastreport 做的报表能预览所有页,但在打印时,却只能打印前5页,第5页之后的内容就打印不出来了。
- 急急急!!如何在fastreport中预览显示出数据库中的jpg图片字段?????????????????
var sql:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
sql:= 'insert into users(text1,userid) values ('+ QuotedStr(Edit1.Text) + ','+ QuotedStr(edit2.Text) +')';
adoquery1.SQL.Add(sql);
adoquery1.ExecSql;end;
或许是users(text1,usrid)中的text1与values('''+edit1.Text+'''....)中的text1冲突
sql:=sql+‘'''+edit1.Text+‘''';
sql:=sqll+','+''''+edit2.Text+''''+')';
sql:= 'insert into users(text1,userid) values ('''+edit1.Text+''','''+edit2.Text+''')';
var sql:string;
begin
adoquery1.Close;
adoquery1.sql:='insert into users(text1,userid) values('+quotedstr(edit1.Text)+','+quotedstr(edit2.Text)+')';
adoquery1.ExecSql;
end;