with adoquery3 do
begin
close;
sql.Clear;
sql.Text:='insert into fuser(username,password1,right)values(:ausername,:apassword1,:aright)';
Parameters.ParamByName('ausername').Value:=edit1.Text;
Parameters.ParamByName('apassword1').Value:=edit2.Text;
Parameters.ParamByName('aright').Value:=combobox1.Text;
ExecSQL;
messagedlg('添加成功!',mtinformation,[mbOK],0);
end;
begin
close;
sql.Clear;
sql.Text:='insert into fuser(username,password1,right)values(:ausername,:apassword1,:aright)';
Parameters.ParamByName('ausername').Value:=edit1.Text;
Parameters.ParamByName('apassword1').Value:=edit2.Text;
Parameters.ParamByName('aright').Value:=combobox1.Text;
ExecSQL;
messagedlg('添加成功!',mtinformation,[mbOK],0);
end;
因为直接使用value的时候delphi无法判断参数的类型。你看源码就知道了。
begin
Close;
SQL.Clear;
SQL.Text := 'insert into table1(ID, Name, Sex) values('''+Edit1.Text+''', '''+Edit2.Text+''', '+IntToStr(ComboBox1.ItemIndex)+')';
ExecSQL;
end;可以不?