procedure TDM.AccessInsertLog(SUserName, SContent: string; CKind: Char);
var
S: string;
begin
S := 'insert into [syslog]([syslog_ctype], [syslog_vccontent], [syslog_vcname], [syslog_dtdate])' +
' values (:kind, :content, :name , :date) ';
try
with ADOShareCommand do
begin
CommandType := cmdText;
CommandText := S;
Parameters[0].Value := CKind;
Parameters[0].SIZE := 1;
if SContent= EmptyStr then
Parameters[1].Value := EmptyStr
else
begin
Parameters[1].Value := SContent;
Parameters[1].SIZE := Length(sMark);
end;
Parameters[2].Value := SUserName;
Parameters[2].SIZE := Length(SUserName);
Parameters[3].Value := Now;
Execute;
end;
except
on E: Exception do
ShowMessage(e.message);
end;
end;
这里注意, 如对EmptyStr(‘’) 空字符串使用
Parameters[1].SIZE := Length(sMark);
那么会提示错误。