procedure TfmMainForm.LoginForms;
begin
Application.CreateForm(TfmPassWord,FmPassWord);
try
with dmRightSet.adoquery do
begin
// SQL.Clear;
SQL.Add('DELETE FROM ONLINE WHERE USERID = ''' +m_UserID+ '''');
SQL.Text := 'DELETE FROM ONLINE WHERE USERID = ''' +m_UserID+ '''';
ExecSQL;
end;
end;
执行上面的过程后,程序会跳出不知名的错误,后来将adoquery中的属性cursorlocation改为cluseserver就不会出错!可我另外新建一个工程不改这个属性也不会出错!不知道为什么?请大家帮个忙解决一下!
begin
Application.CreateForm(TfmPassWord,FmPassWord);
try
with dmRightSet.adoquery do
begin
// SQL.Clear;
SQL.Add('DELETE FROM ONLINE WHERE USERID = ''' +m_UserID+ '''');
SQL.Text := 'DELETE FROM ONLINE WHERE USERID = ''' +m_UserID+ '''';
ExecSQL;
end;
end;
执行上面的过程后,程序会跳出不知名的错误,后来将adoquery中的属性cursorlocation改为cluseserver就不会出错!可我另外新建一个工程不改这个属性也不会出错!不知道为什么?请大家帮个忙解决一下!
procedure TfmMainForm.LoginForms;
begin
Application.CreateForm(TfmPassWord,FmPassWord);
try
with dmRightSet.adoquery do
begin
// SQL.Clear;
SQL.Text := 'DELETE FROM ONLINE WHERE USERID = '+#39+m_UserID+#39;
ExecSQL;
end;
end;