Delphi7向Access数据库文本字段插入空值的方法

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);
那么会提示错误。