各位大大,小弟的以下程序不能返回结果,并且系统提示:
在此上下文中不允许使用‘x’,此处只允许使用常量,表达式,变量,不允许使用别名!
望更正,重谢!procedure TForm1.Button1Click(Sender: TObject);
var
x,y:tdatetime;
begin
x:=strtodatetime(edit1.Text) ;
y:=strtodatetime(edit2.Text) ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into basicinformation (starttime,endtime) values (x,y)');
adoquery1.execsql;end;end.
在此上下文中不允许使用‘x’,此处只允许使用常量,表达式,变量,不允许使用别名!
望更正,重谢!procedure TForm1.Button1Click(Sender: TObject);
var
x,y:tdatetime;
begin
x:=strtodatetime(edit1.Text) ;
y:=strtodatetime(edit2.Text) ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into basicinformation (starttime,endtime) values (x,y)');
adoquery1.execsql;end;end.
你那是字符呀
用参数吧
adoquery1.SQL.Add('insert into basicinformation (starttime,endtime) values (:x,:y)');
parameters.parambyname('X'):=....
parameters.parambyname('Y'):=....
var
x,y:tdatetime;
begin
//x:=strtodatetime(edit1.Text) ;
//y:=strtodatetime(edit2.Text) ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('insert into basicinformation (starttime,endtime) values ('''+edit1.Text+''','''+edit2.Text+''')');
adoquery1.execsql;end;end.