主题:运行出错
if trim(edit1.Text) <> '' then
begin
with datamd.ADOmanage do
begin
close;
sql.Clear;
sql.Add('insert into manage(user,password) values (:m_user,:m_password)');
parameters.ParamByName('m_user').Value := edit1.Text ;
parameters.ParamByName('m_password').Value := edit2.Text ;
execsql;//这里出错
end;
end;
是什么问题呀,请各位大佬们帮帮手
begin
with datamd.ADOmanage do
begin
close;
sql.Clear;
sql.Add('insert into manage(user,password) values (:m_user,:m_password)');
parameters.ParamByName('m_user').Value := edit1.Text ;
parameters.ParamByName('m_password').Value := edit2.Text ;
execsql;//这里出错
end;
end;
是什么问题呀,请各位大佬们帮帮手